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1.  FUNCTION  INDEX 


The  following  contains  an  index  to  all  functions  in  the  AIPS  source 
files.  These  files  are  generally  organized  as  follows: 


o  Miscellaneous 


AIPS 

AIPSTEMP 

AIPSUTILITY 


o  Presentation 


AIPSDISPLAY  the  main  presentation  routines 

AIPSCS  definition  of  coordinate  systems 

AIPSMAP  definition  of  the  "map"  presentation  format 

AIPSTABLE  definiton  of  the  "table"  presentation  format 


o  Realization 


AIPSREALIZATION  the  main  realization  modules 
AIPSTODRAW  interface  to  the  graphics  primitives 

AIPSDEVICES  a  model  of  the  graphics  devices  available 
AIPSWINDOW  a  simple  window  package  in  AIPS  knowledge 

structures 


o  Domain  Model 


AIPSDOMAIN  the  upper-level  shared  domain  world  structure 

AIPSTS  general  time  system  knowledge 

AIPSGEOGRAPHY  general  shared  geographic  knowledge 

AIPSNAVAL  knowledge  for  depicting  naval  data 

AIPSNTDS  specific  knowledge  for  the  NTDS  presentation  format 


a  file  that  merely  loads  all  other  files  in  the 
system 

a  file  of  useful  but  otherwise  uncategor izable 
functions 

a  file  of  utility  routines 
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—  Index  to  Piles  — 
<NEWAIPS>AIPS. .3 
<NEWAIPS>AIPSCS . . 10 
<NEWAIPS>AIPSDEVICES . . 20 
<NEWAIPS>AIPSDISPLAY. .47 
<NEWAIPS>AIPSDOMAIN . . 5 
<NEWAIPS>AIPSGEOGRAPHY. .9 
<NEWAIPS>AIPSMAP . . 57 
<NEWAIPS>AIPSNAVAL . . 3 
<NEWAIPS>AIPSNTDS . . 26 
<NEWAIPS>AIPSREALIZATION. .28 
<NEWAIPS>AIPSTABLE. .36 
<NEWAIPS>AIPSTEMP . . Ill 
<NEWAIPS>AIPSTODRAW ..63 
<NEWAIPS>AIPSTS . . 2 
<NEWAIPS>AIPSCJTILITY. .9 
<NEWAIPS  > AIPSWINDOW . .122 
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1:23am 
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11:41pm 

ll-Dec-80 
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3 :55am 
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2 : 2 lam 
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1:10am 

18-Dec-80 

8 : 0  3am 

2-Feb-81 

3:43am 

2-Feb-81 

3:12am 

10-Jul-80 

11:58pm 

19-Dec-80 

12:34am 

2-Feb-81 

1:15am 

AIPSGetSpecif iedMetaDescr iptions . 

CollectTemplatesDescr ibingEntity . 

DisplaySurfar  -ForGroundP . 

EstablishDomainEntityPositionlnCS . 

FindApplicableApplicationSlots . 

PindApplicationObjects . . . 

F i ndCol umnTa bl eRows . 

FindCol umnW idth . 

FindCostOf  Display . . . . . 

FindCover inglntendedApplication . 

FindDistanceSquaredFromDisplayForm . 

FindDomainCoordinateSystera . 

FindDrawingContextsForDisplay . 

FindMapEntitiesFromApplication . 

FindMapIteraPrototypes . . . 

FindMappingBetweenCSs. . . 

F i ndMos tSpec i al i zedConcept . 

FindRoleValuesTr ans i tively . 

FindRowHeight . . . 

FindRowTableColumns . 

FindScaleOnitDistance . 

FindTableEntitylndicators . 

FindTableThemeElement Indicators . 

FindTableThemeElementlndicatorsAndOrientation 

FindTemplateObjects . 

FindTemplateSlots . . . 

F i ndTopLe ve 1 D i sp 1 ay sOn V iewSu  r  face . 


AIPSDISPLAY 

12 

AIPSDISPLAY 

13 

AIPSTODRAW 

27 

AIPSMAP 

23 

AIPSDISPLAY 

14 

AIPSDISPLAY 

15 

AIPSTABLE 

10 

AIPSTABLE 

11 

AIPSDISPLAY 

16 

AIPSDISPLAY 

17 

AIPSDISP 

46 

AIPSMAP 

8 

AIPSTODRAW 

28 

AIPSMAP 

9 

AIPSMAP 

21 

AIPSMAP 

22 

AIPSTEMP 

17 

AIPSTODRAW 

29 

AIPSTABLE 

12 

AIPSTABLE 

13 

AIPSMAP 

10 

AIPSTABLE 

14 

AIPSTABLE 

15 

.IPSTABLE 

16 

AIPSDISPLAY 

18 

AIPSDISPLAY 

19 

AIPSTODRAW 

30 
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GetFontCharacterDef . AIPSTODRAW  31 

GuageTemplateRGCoverageOfTemplate . AIPSDISPLAY  20 

HomogenousConceptListP . AIPSTEMP  18 

I  n  i  1 2DCOORD INATES YSTEM . AI PSCS 

I  n  i  1 2DL INEARTRANSFI X . AIPSCS 

I  n  i  1 20L INEARTRANSFORM . A I  PSCS 

InitAIPS . AIPSTEMP 

InitAPERTURE . AIPSWINDOW 

InitARRANGEMENT . AIPSTABLE 

Ini  tCARTES  IANS  YSTEM . AIPSCS 

InitCIRCLE . AIPSREALI ZATION 

Ini  tCLOSEDCURVE . AIPSREALI ZATION 

Ini  tCOLUMN . AIPSTABLE 

Ini  tCOLOMNTABLE . AIPSTABLE 

InitConunonDomainModel . AIPSDOMAIN 

Ini  tCONRACSCREEN . AIPSDEVICES 

In itCOORD INATES YSTEM . AIPSCS 

InitCoordinateSystemConcepts . AIPSCS 

Ini  tCTYWINDOW . AIPSDEVICES 

Ini  tCURVE . AIPSREALI  ZATION 

InitDeviceConcepts . AIPSDEVICES 

InitDevices . AIPSDEVICES 

InitDISPLAY. . .  . . AIPSDISPLAY 

InitDISPLAYABSTRACTION . AIPSDISPLAY 

Ini  tDISPLAYATOM . AIPSREALI  ZATION 

InitDISPLAYCOMPOSITE . AIPSREALI  ZATION 

InitDISPLAYFORM . AIPSREALI  ZATION 

InitDisplayFormConcepts . AIPSREALI  ZATION 

InitDISPLAYITEM . AIPSTEMP 

I  n  i  tD  I SPLA  YITEMABSTRACT  ION . AIPSTEMP 

InitDISPLAYSURFACE . AIPSTEMP 

InitDISTANCE . AIPSDOMAIN 

InitDISTANCEUNIT . AIPSDOMAIN 

Ini  tEDGESET . AIPSREALI  ZATION 

InitELLIPSE . AIPSREALI  ZATION 

Ini  tENEMYNTDS  PLANE . AIPSNTDS 

InitENEMYNTDSSHIP . AIPSNTDS 

Ini  tENEMYNTDSSUB . AIP  SNTDS 

Ini  tENEM  YP  LANE . AIPSNAVAL 

InitENEMYSHIP . AIPSNAVAL 

Ini  tENEMYSUB . AIPSNAVAL 

Ini  tFASTWINDOW . AIPSWINDOW 

Ini  tFRI  ENDL  YNTDS  PLANE . AIPSNTDS 

InitFRI  ENDL  YNTDS  SH I P . AIPSNTDS 

I  n  i  tFRI  ENDLYNTDSSUB . A I P  SNTDS 

Ini  tFRI  ENDL  YPLANE . AIP  SNAVAL 

Ini  tFRI  ENDL  YSH  IP . A I PSNAVAL 

InitFRIENDLYSUB . . . AIPSNAVAL 

Ini  tGeog  r  aphyMode  1 . AI  PSGEOGRAPHY 
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Ini tGEOREG I ON . 

InitHIDDENPLANE . 

Ini tHOMOGENEOUSREGION . 

I n i t INTEGERS YSTEM . 

In it INTERVAL . 

I n i t INTERVALUNTT . 

Ini t INVI S I BLESURF ACE . . 

InitITEMPLATE . 

Ini tLANDFEATURE . 

InitLANDMASS . 

InitLINEARTRANSFORM. . . 

InitLINESEGMENT . 

InitMAP . 

InitMapConcepts . 

InitMAPGRID . 

InitMAPITEM . 

InitMAPLEGEND . 

InitMAPPING . 

Ini tMAPWITHBACKGROUND . 

InitMETRIC . 

InitMiddleEarth . 

InitMOTILEDISPLAYITEM. 

InitNATION . 

InitNavalDomainModel . . 
InitNONSCROLLWINDOW. . . 

InitNTDSConcepts . 

Ini tNTDS ENGAGEMENTMARK 

Ini tNTDS I TEM . 

InitNTDSMAP . 

Ini tNTDSVELOC IT YLEADER 
Ini tORTHOGONALS YSTEM . . 

InitPHYSOBJECT . 

InitPLACE . 

InitPLANE . 

Ini tPLANESURFACE . 

InitPLATFORM . 

InitPOINT . 

InitPOLYGON . 

InitPOSITION . 

Ini tPRESENTAT ION . 

InitPresentationModel. 
InitRealizationModel . . 

InitRECTANGLE . 

InitRECTANGULARMAP .... 
Ini tRECT ANGUL ARREG I ON . 

InitREGION . 

InitREGULARPOLYGON. . . . 

InitROW . 

InitROWTABLE . 

Ini tSCROLLWINDOW . 

InitSHIP . 


AIPSGEOGRAPHY  1 
AIPSDEVICES  5 
AIPSTEMP  5 
AIPSCS  7 
AIPSDOMAIN  4 
AIPSDOMAIN  5 
AIPSTEMP  6 
AIPSDISPLAY  5 
AIPSGEOGRAPHY  3 
AIPSGEOGRAPHY  4 
AIPSCS  8 
AIPSREALI ZATION  10 
AIPSMAP  1 
AIPSMAP  6 
AIPSMAP  2 
AIPSMAP  3 
AIPSMAP  4 
AIPSCS  9 
AIPSMAP  5 
AIPSDOMAIN  6 
AIPSTEMP  8 
AIPSTEMP  7 
AIPSGEOGRAPHY  5 
AIPSNAVAL  7 
AIPSWINDOW  3 
AIPSNTDS  7 
AIPSNTDS  8 
AIPSNTDS  9 
AIPSNTDS  10 
AIPSNTDS  11 
AIPSCS  10 
AIPSDOMAIN  7 
AIPSDOMAIN  8 
AIPSNAVAL  8 
AIPSTEMP  9 
AIPSNAVAL  9 
AIPSREALI ZATION  11 
AIPSREALI ZATION  12 
AIPSDOMAIN  9 
AIPSDISPLAY  2 
AIPSDISPLAY  1 
AIPSREALI ZATION  15 
AIPSREALI ZATION  13 
AIPSMAP  7 
AIPSTEMP  10 
AIPSDOMAIN  10 
AIPSREALI ZATION  14 
AIPSTABLE  4 
AIPSTABLE  5 
AIPSWINDOW  4 
AIPSNAVAL  10 
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InitSLOWWINDOW . 

InitSPEED . 

InitSPEEDUNIT . 

Ini  tST  AB I  LED  I S  P  LAY  ITEM . . 

InitSOB . 

InitTABLE . 

InitTableConcepts . 

InitTEMPLATE . 

InitTEXT . 

InitTEXTCOLCJMN . 

InitTEXTROW . 

InitTIME . 

InitTIMESYSTEM . 

InitTimeSystemConcepts . 

InitTRANSFIX . 

InitTRANSLATION . 

Ini tTT YWINDOW . 

Ini tTURTLESCREEN . 

InitUNIT . 

Ini tUNKNOWNNTDSPLANE . 

Ini tUNKNOWNNTDSSHIP . 

Ini tUNKNOWNNTDSSUB . 

Ini tUNKNOWNPLANE . 

InitUNKNOWNSHIP . 

InittJNKNOWNSUB . . . 

InitUSERMODEL . 

InitUserModel . . . 

InitUT . 

InitVEHICLE . 

InitViewingOrganizationModel . . . 

InitVIEWSURFACE . 

InitVIEWSYSTEM . 

InitVISIBLESURFACE . 

InitWATERBODY . 

Ini  tWATERFEATURE . . . 

InitWINDOW . 

InitWindowConcepts . 

Ini tWORLDPOS ITION . 

LDIFFERENCE . 

MakeColumnString . . . 

MakeDef aultTableGround . 

MakeDefaultTextStr ing . 

MakeDisplayName . . . 

MakeGroundForMapWithBackground . 

MakeLegendApplication . 

MakeLinearMapTransforraAndGroundFromEnti ties 
MakeLinearMapTransformFromGroundAndEntities 

MakeMapItemApplication . 

MakeMapItemLabel? . 
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MakeMapItems . AIPSMAP  16 

MakeMapLabel . AIPSMAP  17 

MakeMapTransformForMapWithBackground . AIPSMAP  18 

MakeNTDSEngagementMark? . AIPSNTDS  15 

MakeNTDSGroupStrengthMark? . AIPSNTDS  16 

MakeNTDSVelocityLeader? . AIPSNTDS  17 

MakeRectangle . AIPSREALIZATION  18 

MakeRectangularMapBorder . AIPSMAP  19 

MakeS  impleMapLegend . AIPSMAP  20 

MakeTableColumnOrderList . AIPSTABLE  18 

MakeTableEntryColumns . . . AIPSTABLE  19 

MakeTableEntryRows . AIPSTABLE  20 

MakeTableFoot? . AIPSTABLE  21 

MakeTableHeaderRow . AIPSTABLE  22 

MakeTableLef tlndex . AIPSTABLE  23 

MakeTableRightlndex? . AIPSTABLE  24 

MakeTableRowOrderList . AIPSTABLE  25 

MakeTextHeight . AIPSDISPLAY  10 

MakeTextWidth . AIPSDISPLAY  11 

MapPositionDescr  iption . AIPSMAP  25 

OpenWindow . AIPSWINDOW  9 

RotatePointsAroundPoint . AIPSTODRAW  34 

ROUND . AIPSTODRAW  33 

RoundPoint . AIPSTODRAW  35 

RoundPoints . AIPSTODRAW  36 

RptCoocd . AIPSGEOGRAPHY  10 

ScrollFastWindow . AIPSTODRAW  1 

ScrollSlowWindow . AIPSTODRAW  2 

ScrollTTYWindow . AIPSTODRAW  3 

ScrollWindow . AIPSTODRAW  37 

SelectDef  aultDisplay . . . AIPSDISPLAY  22 

SelectDisplay . AIPSDISPLAY  23 

SelectFromAmongSuf  f  icientDisplays . AIPSDISPLAY  24 

SendMessage . AIPSUTILITY  1 

SetRoleValues . AIPSUTILITY  2 

SupplyConceptMetalndicator . AIPSDISPLAY  25 

SupplyRoleMetalndicator . AIPSDISPLAY  26 

TDCircle . AIPSTODRAW  4 

TDCurve . AIPSTODRAW  5 

TDDisplay . .AIPSTODRAW  6 

TDD  isplayCompo  site . AIPSTODRAW  7 

TDDisplayltemAbstr action . .AIPSTODRAW  8 

TDDisplaySurface . ..AIPSTODRAW  9 

TDEdgeSet . AIPSTODRAW  10 

TDEllipse . AIPSTODRAW  11 

TDFastWindow . AIPSTODRAW  12 

TDIWFastWindow . AIPSTODRAW  13 
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TDIWNonScrollWindow . AIPSTODRAW  14 

TDIWSlowWindow . AIPSTODRAW  15 

TDLineSegment . AIPSTODRAW  16 

TDNonScrollWindow . AIPSTODRAW  17 

TDPoint . AIPSTODRAW  18 

TDRectangle . AIPSTODRAW  19 

TDRegularPolygon . AIPSTODRAW  20 

TDSlowWindow . AIPSTODRAW  21 

TDText . AIPSTODRAW  23 

TDTTYWindow . AIPSTODRAW  22 

TDWindow . AIPSTODRAW  24 

TEDisplayAtom . AIPSTODRAW  25 

TEDisplayComposite . AIPSTODRAW  26 

TemplateCGCover  sTemplateCGP . AIPSDISPLAY  27 

TemplateOutSpeci£iesTemplateP . AIPSDISPLAY  28 

TLAperture . AIPSWINDOW  10 

TLColumnTable . AIPSTABLE  26 

TLDisplay . AIPSDISPLAY  29 

TLDisplayAtom . AIPSREALIZATION  16 

TLDisplayl  tem . . . AIPSTEMP  19 

TLDisplaySur  face . . . AIPSTEMP  20 

TLPlaneSur  face . AIPSTEMP  21 

TLRec  tangle . AIPSREALIZATION  17 

TLRowTable . AIPSTABLE  27 

TLWindow . . AIPSWINDOW  11 

TMAper  ture . AIPSWINDOW  12 

TMDisplaySurface . AIPSTEMP  22 

TMF  astWindow . AIPSWINDOW  13 

TMNonScrollWindow . AIPSWINDOW  14 

TMRec  tangle . AIPSREALIZATION  19 

TMRegionNumber . AIPSTEMP  23 

TMSlowWindow . AIPSWINDOW  15 

TMTTYW  i  ndow . AIPSWINDOW  16 

TransformPoints . AIPSTODRAW  38 

TransformSize . AIPSTODRAW  39 

TSAperture . AIPSWINDOW  17 

TSNonSc  r  o  1 1W  i  ndow . AIPSWINDOW  18 

TSPlaneSurface . AIPSTEMP  24 

TSRectangle . AIPSREALIZATION  20 

TSRectangularRegion . AIPSTEMP  25 

TSWindow . AIPSWINDOW  19 

TT2DLinearTransFix . AIPSCS  14 

TT2DLinearTransform . AIPSCS  15 

TTTransFix . . . AIPSCS  16 

TTTranslation . AIPSCS  17 

TTXPosition . AIPSDOMAIN  16 

TTXWorldPosi  tion . AIPSGEOGRAPHY  9 
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2.  SOURCE  FILE:  AIPS 


(FILECREATED  "  8-NOV-80  22:49:37"  <NEWAIPS>AIPS . . 3  686 

changes  to:  AIPSUTILITYFNS  SendMessage  AIPSVARS  AIPSCOMS 
previous  date:  "  7-NOV-80  21:02:56"  <NEWAIPS>AIPS . . 4) 


(PRETTYCOMPRINT  AIPSCOMS) 

(RPAQQ  AIPSCOMS  ((FILES  (COMPILED  FROM  NEWAIPS) 

AIPSCS  AIPSDEVICES  AIPSDISPLAY  AIPSDOMAIN 
AIPSGEOGRAPHY  AIPSMAP  AIPSNAVAL  AIPSNTDS 
AIPSREALIZATION  AIPSTABLE  AIPSTEMP  AIPSTODRAW 
AIPSTS  AIPSUTILITY  AIPSWINDOW) ) ) 

(FILESLOAD  (COMPILED  FROM  NEWAIPS) 

AIPSCS  AIPSDEVICES  AIPSDISPLAY  AIPSDOMAIN  AIPSGEOGRAPHY  AIPSMAP 
AIPSNAVAL  AIPSNTDS  AIPSREALIZATION  AIPSTABLE  AIPSTEMP  AIPSTODRAW 
AIPSTS  AIPSUTILITY  AIPSWINDOW) 

(DECLARE:  DONTCOPY 
(FILEMAP  (NIL))) 

STOP 
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Source  Pile:  AIPSCS 
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3.  SOURCE  FILE:  AIPSCS 

Init2DCOORDINATESYSTEM . 1 

I  n  i  1 2DLINEARTRANSF IX . 2 

Init2DLINEARTRANSF0RM . 3 

Ini  tCARTES  I ANSYSTEM . 4 

Ini  tCOORD  IN ATES YSTEM . 5 

InitCoordinateSystemConcepts . 6 

InitINTEGERSYSTEM . 7 

Ini  tLINEARTRANSFORM . 8 

InitMAPPING . 9 

Ini  tORTHOGONALS  YSTEM . 10 

InitTRANSFIX . 11 

InitTRANSLATION . 12 

Ini  tVIEWS  YSTEM . 13 

TT2DLinearTransFix . 14 

TT2DLinearTransform . 15 

TTTransFix . 16 

TTTranslation . 17 


Bolt  Beranek  and  Newman  Inc. 


Report  No. 


(FILECREATED  "  3-Jul-80  17:03:28"  <NEWAIPS>AIPSCS . . 10  9183 
changes  to:  AIPSCSCOMS 

previous  date:  "  3-Jul-80  13:50:27"  <NEWAIPS>AIPSCS . .9) 


(PRETTYCOMPRINT  AIPSCSCOMS) 

(RPAQQ  AIPSCSCOMS  ( (FNS  *  AIPSCSINITFNS) 

(FNS  *  AIPSCSTOTRANSFORMFNS ) 

(ADDVARS  (CKLONEFILES  AIPSCS) )) ) 

(RPAQQ  AIPSCSINITFNS  (Init2DCOORDINATESYSTEM  I n i 1 2DL INE ARTRANSF IX 

I n i 1 2DLINEARTRANSFORM 
Ini tCARTES IANSYSTEM 
InitCOORDINATESYSTEM 
InitCoordinateSystemConcepts 
I n i t INTEGERS YSTEM 
Ini tL INEARTRANSFORM 
InitMAPPING 
Ini tORTHOGONALS YSTEM 
InitTRANSFIX  InitTRANSLATION 
In itVIEWS YSTEM) ) 

(DEFINEQ 


{1} 


( I n i 1 2DCOORD IN ATES YSTEM 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

2-Jul-80.) 

[concept  2DCOORDINATES YSTEM 

(specializes  COORD IN ATES YSTEM) 

[roleset  NIL 

(mods  Dimens ionality@COORDINATESYSTEM) 

(vr  2)]]]) 


{2} 


( I n i 1 2DL INEARTRANSF I X 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

3-Jul-80.) 

(*  Two  dimensional,  linear  transforms  from  cartesian 
coordinate  systems  to  integral  cartesian  coordinate  systems) 


[concept  2DLINEARTRANSFIX 
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(specializes  2DLINEARTRANSF0RM) 

[roleset  NIL 

(mods  To @ 2DL INEARTRAN SFORM ) 

(vr  VIEWS YSTEM) ] 

(itags  (ToTransform  TT2DLinearTransFix) ) ] ) ) 


{3} 


( I n i 1 2DL INEARTRANSFORM 
[LAMBDA  NIL 


(*  Edited  by  J. Gibbons  on 
3-Jul-80.) 


[concept  2DL INEARTRANSFORM 

(specializes  LINEARTRANSFORM) 

[roleset  NIL. 

(mods  From@LINEARTRANSFORM) 

(vr  CARTESIANSYSTEM) ] 

[roleset  NIL 

(mods  To @ L I NEARTRANSFORM ) 

(vr  CARTESIANSYSTEM) ] 

(itags  (ToTransform  TT2DLinearTransform) ) ] ] ) 


(4} 


(Ini tCARTES I ANSYSTEM 
[LAMBDA  NIL 


(*  Edited  by  J. Gibbons  on 
2-Jul-80.) 


[concept  CARTESIANSYSTEM 

(specializes  2DCOORDINATES YSTEM  ORTHOGONALS YSTEM) ]] ) 


{5} 


(InitCOORD IN ATES YSTEM 
[LAMBDA  NIL 

[concept  COORDINATESYSTEM 
[roleset  Name 
(vr  STRINGP) ] 


(*  Edited  by  J. Gibbons  on 
2-Jul-80 . ) 


(*  This  Role  must  be  explicitly  included  because  it  is 
necessary  for  distinguishing  among  Coordinate  Systems  who  do 
not  as  yet  have  Entries  and  Exits.  It  is  not  desirable  to  use 
a  Concept  Name  as  other  than  an  indexing  mechanism  at  the 
implementations!  level.) 
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[roleset  Exit 
(number  (0  NIL)) 
(vr  MAPPING) ] 


[roleset  Entry 
(number  (0  NIL)) 
(vr  MAPPING) ] 


[roleset  Dimensionality 
(modality  Obligatory) 
(vr  NUMBERP) ] ] ] ) 


(*  These  are  the  transforms  for 
leaving  the  Coordinate  System.) 


(*  Transforms  for  entering  the 
Coordinate  System.) 


{6} 


(InitCoordinateSystemConcepts 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

3-Jul-80.) 

(*  Initializes  those  concepts  having  to  do  with  Coordinate 
Systems  and  mappings  between  them.  Some  major  changes  from  the 
previous  paradigm  occur  among  these  concepts. 

For  example,  positions  are  now  simply  LISTP,  and  must  be 
interpreted  relative  to  some  Coordinate  System  found  in  the 
context  of  the  description  referencing  the  position.) 


(Ini tCOORD IN ATES YSTEM ) 

( I n i t INTEGERS YSTEM ) 

( In i 1 2DCOORDINATESYSTEM ) 
(Ini tORTHOGONALS YSTEM ) 
(Ini tCARTES IANS YSTEM ) 
(InitVIEWSYSTEM) 
(InitMAPPING) 

(Ini tLINEARTRANSFORM) 

( I n i 1 2DL INEARTRANSFORM ) 

( I n i 1 2DLINEARTRANSF IX ) 
(InitTRANSLATION) 
(InitTRANSFIX] ) 


{7} 

( I n i t INTEGERS YSTEM 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

2-Jul-80.) 

[concept  INTEGERS YSTEM 

(specializes  COORDINATES YSTEM) 
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(*  The  purpose  of  this  distinction  is  to  signal  that  certain 
transformations  must  involve  rounding. 

Bit  maps  are  integer  systems.) 

11) 


(Ini tLINEARTRANSFORM 
[LAMBDA  NIL 

[concept  LINEARTRANSFORM 
(specializes  MAPPING) 
[roleset  NIL 

(mods  From@MAPPING) 

(vr  ORTHOGONALSYSTEM) ] 
[roleset  NIL 

(mods  To@MAPPING) 

(vr  ORTHOGONALSYSTEM) ] 
[roleset  Origin 
(vr  LISTP) ] 

[roleset  Unitvector 
(vr  LISTP) ] ] ] ) 


{8} 

(*  Edited  by  J. Gibbons  on 
2-Jul-80.) 


{9} 


(InitMAPPING 
[LAMBDA  NIL 

[concept  MAPPING 
[roleset  From 

(modality  Obligatory) 
(number  (1  NIL)) 

(vr  COORD INATESYSTEM) ] 
[roleset  To 

(modality  Obligatory) 
(number  (1  NIL)) 

(vr  COORD INATESYSTEM) ] 


(*  Edited  by  J. Gibbons  on 
2-Jul-80.) 


(*  Should  have  an  ITag  whose  referent  is  a  function  that  can 
be  applied  to  a  list  of  positions  and  smash  them  with 
transformed  coordinates.) 


{10} 
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(Ini tORTHOGONALSYSTEM 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

2-Jul-80.) 

[concept  ORTHOGONALSYSTEM 

(*  This  Concept  should  have  an  SD  that  describes  the 
constraint  o£  Orthogonality  on  the  system's  axes.) 


(specializes  COORDINATESYSTEM) ]j ) 


{11} 


(InitTRANSFIX 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

3-Jul-80.) 

,  (*  Translation  from  cartesian 

coordinate  systems  to  integral 
cartesian  coordinate  systems.) 

[concept  TRANSFIX 

(specializes  2DLINEARTRANSFIX  TRANSLATION) 

( itags  (ToTransform  TTTransFix) ) ] ] ) 


{12} 

(InitTRANSLATION 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

3-Jul-80 . ) 

[concept  TRANSLATION 

(*  Most  of  our  transforms  will 
be  purely  translations.) 

(specializes  2DLINEARTRANSF0RM) 

[roleset  NIL 

(mods  Un i tVec tor @ 2DL INEARTRANSFORM ) 

(vr  <1  1>)] 

(itags  (ToTransform  TTTranslation) ) ] ] ) 


(InitVIEWSYSTEM 
[LAMBDA  NIL 

[concept  VIEWSYSTEM 


{13} 


(*  Edited  by  J. Gibbons  on 
2-Jul-80.) 

(*  This  kind  of  coordinate 
system  can  be  used  to  describe 
display  regions.) 
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) 


(specializes  INTEGERSYSTEM  CARTES I ANSYSTEM) ] ] ) 


(RPAQQ  AIPSCSTOTRANSFORMFNS 
(DEPINEQ 


(TT2DLinearTransFix  TT2DLinearTransform 

TTTransFix  TTTranslation) ) 


{14} 


(TT2DLinearTransFix 

[DLAMBDA  ( (transform  IndividualConcept 

(point  (LISTP  OF  NUMBERP))) 
(CLISP:  MIXED) 


(SATISFIES  (transform  df 

*■  2DLINEARTRANSFIX)  )  ) 

(*  Edited  by  J. Gibbons  on 
3-Jul-80.) 


(*  Performs  a  2DLinearTransFixing  - 
a  2DLinearTransformation  to  integer  coordinates  - 
on  point  according  to  transform.  Returns  the  fixed,  2D 
linearly  transformed  point.) 


(PROG 


[  (unitVector  (OR  { transform;UnitVector } : 1  '(1  1) ) ) 
(origin  (OR  { transformer  igin} :  1  '(0  0] 

(RETURN  <  (ROUND  point ;  l*uni tVector :  1+or igin :  .1) 
(ROUND  point: 2*uni tVector : 2+or igin: 2) 
>))]) 


{15} 


(TT2DLinearTransform 

(DLAMBDA  ( (transform  IndividualConcept 

(point  (LISTP  OF  NUMBERP))) 
(CLISP:  MIXED) 


(SATISFIES  (transform  df 

*2DLINEARTRANSF0RM) ) ) 

(*  Edited  by  J. Gibbons  on 
3-Jul-80.) 


(*  Peforms  a  2DLinearTransformation  on  point  according  to 
transform.  Returns  the  2D  linearly  transformed  point.) 


(PROG  [{unitVector  (OR  { transform;UnitVector } : 1  '(1  1) ) ) 
(origin  (OR  { transformer  igin} :  1  '(0  0] 

(RETURN  <point : l*uni tVector : 1+or igin: 1 

point: 2*uni tVector : 2+or igin: 2>) ) ] ) 


{16} 
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(TTTransPix 

(DLAMBDA  ((transform  IndividualConcept 

(point  (LISTP  OF  NUMBERP))) 
(CLISP:  MIXED) 


(SATISFIES  (transform  df  "TRANSFIX) 
)  ) 

(*  Edited  by  J. Gibbons  on 
3-Jul-80.) 


(*  Performs  a  TransFixing  - 
a  Translation  to  integer  coordinates  - 

on  point  according  to  transform.  Returns  the  fixed,  translated 
point. ) 


(PROG  ((origin  (OR  { transformer  igin} :  1  '(0  0] 
(RETURN  < (ROUND  point: 1+or igin: 1) 

(ROUND  point : 2+or igin : 2) 

>))]) 


{17} 


(TTTranslation 

[DLAMBDA  ((transform  IndividualConcept  (SATISFIES  (transform  df 

"TRANSLATION) ) ) 


) 


(point  (LISTP  OF  NUMBERP))) 

(CLISP:  MIXED)  (*  Edited  by  J. Gibbons  on 

3-Jul-80.) 

(*  Performs  a  Translation  on 
point  according  to  transform. 
Returns  the  translated  point.) 

(PROG  ((origin  { transform;Origin} : 1) ) 

(RETURN  (if  origin 

then  <point: 1+or igin: 1  point: 2+origin: 2> 
else  point) ) ) ] ) 


(ADDTOVAR  CKLONEFILES  AIPSCS) 
STOP 


Source  File:  AIPSCS 


18 


Report  No.  4752 


Bolt  Beranek  and  Newman  Inc 


1 


4.  SOURCE  FILE:  AIPSDEVICES 


InitCONRACSCREEN . 1 

InitCTYWINDOW . 2 

InitDeviceConcepts ...  3 

InitDevices . 4 

InitHIDDENPLANE . 5 

Ini  tTURTLESCREEN . 6 
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(FILECREATED  "19-Jan-81  01:23:51”  <NEWAIPS>AIPSDEVICES . . 20  3933 


changes  to:  InitDevices 

previous  date:  ”  3-Jan-81  01:05:32"  <NEWAIPS>AIPSDEVICES . . 19) 


(PRETTYCOMPRINT  AIPSDEVICESCOMS) 

(RPAQQ  AIPSDEVICESCOMS  (  (FNS  *  AIPSDEVICESINITFNS) 

(GLOBALVARS  TDRegion) 

(ADDVARS  (CKLONEFILES  AIPSDEVICES) ) ) ) 

(RPAQQ  AIPSDEVICESINITFNS  (InitCONRACSCREEN  Ini tCTYWINDOW 

InitDeviceConcepts  InitDevices 
InitHIDDENPLANE 
InitTURTLESCREEN) ) 

(DEFINEQ 


{1} 


(Ini tCONRACSCREEN 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

3 l-Dec-80 . ) 

(*  This  is  the  IC  for  the  PLANESURFACE  which  maps  to  the  BMG 
PLANE  viewed  on  the  CONRAC  monitor.) 


(iconcept  CONRACSCREEN  (individuates  PLANESURFACE  VISIBLESURFACE) 
( irole  Plane  (vr  'CONRACSCREEN)) 

(irole  PlaneNumber  (vr  1)) 

(irole  Boundary  (vr  (TMRectangle) : 1) ) 

(irole  Background  (vr  0]) 


{2} 


(Ini tCTYWINDOW 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

3-Jan-81 . ) 

(*  This  TTYWindow  supports  the 
controlling  terminal  on  the 
TurtleScreen . ) 

(PROG  (window) 

(window_(SendMessage  'TTYWINDOW  'ToMake  'TURTLESCREEN) : 1) 
(KLZChangeConceptName  window  ’ CTYWINDOW) 

(SendMessage  window  'ToSize  { 'TURTLESCREEN ; SHeight } : 1 
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{ 'TURTLESCREEN ; SWidth } :1) 
(SendMessage  window  'ToLocate  '(0  0]) 


(3} 


(InitDeviceConcepts 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

9-Dec-80.) 

(*  Initializes  the  concepts  associated  with  the  BMG  devices. 

These  include  the  three  ICs  representing  the  PLANESURFACEs  of 
bit  mapped  memory.  They  also  include  the  IC  for  the  initial 
TTYWINDOW  on  the  TURTLE  screen  called  CTYWINDOW. 

InitDevices  must  be  called  to  realize  these  concepts.) 


(Ini tTURTLESCREEN ) 
(Ini tCONPACSCREEN ) 
(InitHIDDENPLANE] ) 


{4} 


(InitDevices 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

19-Jan-81 . ) 

(*  Initializes  the  BMG  package  and  fleshes  out  the  relevant 
PlanesSur faces .  Also  creates  and  draws  the  Controlling 
TTYWindow  on  the  TURTLESCREEN . ) 


(if  (ASKUSER  NIL  'N  "Can  I  merely  Reset  (as  opposed  to  Init)  BMG?  "  NIL 
T)  =' Y 
then  (BMGReset) 
else  (BMGInit) ) 

(SendMessage  'CONRACSCREEN  ’ToSize) 

(SendMessage  'CONRACSCREEN  'ToLocate) 

(SendMessage  'TURTLESCREEN  'ToSize) 

(SendMessage  'TURTLESCREEN  ’ToLocate) 

(SendMessage  'HIDDENPLANE  ’ToSize) 

(SendMessage  'HIDDENPLANE  ’ToLocate) 

(Ini tCTYWINDOW ) 

(SendMessage  'CONRACSCREEN  ’ToDraw) 

(SendMessage  'TURTLESCREEN  ’ToDraw) 

(SendMessage  'HIDDENPLANE  ’ToDraw) 

(SendMessage  'CTYWINDOW  ’ToDraw]) 


{5} 
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(InitHIDDENPLANE 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

31-Dec-80 . ) 

(*  This  is  the  IC  for  the  PLANESURFACE  which  maps  to  the  large 
BMG  PLANE.  This  PLANE  is  not  viewed  on  any  monitor.) 


(iconcept  HIDDENPLANE  (individuates  PLANESURFACE  INVISIBLESURFACE) 
(irole  Plane  (vr  "HIDDENPLANE) ) 

(irole  PlaneNumber  (vr  2)) 

(irole  Boundary  (vr  (TMRectangle) : 1) ) 

(irole  Background  (vr  0]) 


(6} 


(Ini tTURTLESCREEN 

(LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

31-Dec~80 . ) 

(*  This  is  the  IC  for  the  PLANESURFACE  which  maps  to  the  BMG 
PLANE  viewed  on  the  TURTLE  monitor.) 


(iconcept  TURTLESCREEN  (individuates  PLANESURFACE  VISIBLESURFACE) 
(irole  Plane  (vr  "TURTLESCREEN)) 

(irole  PlaneNumber  (vr  0)) 

(irole  Boundary  (vr  (TMRectangle) : 1) ) 

(irole  Background  (vr  01) 

) 

(DECLARE:  DOEVAL0COMP I LE  DONTCOPY 

(ADDTOVAR  GLOBALVARS  TDRegion) 

) 

(ADDTOVAR  CKLONEFILES  AIPSDEVICES) 

STOP 
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5.  SOURCE  PILE:  AIPSDISPLAY 


AIPSGetSpecif  iedMetaDescr  iptions . 12 

CollectTemplatesDescr ibingEntity . 13 

FindApplicableApplicationSlots . 14 

FindApplicationObjects . 15 

FindCostOfDisplay . 16 

FindCover  inglntendedApplication . 17 

FindTemplateObjects . 18 

FindTeiuplateSlots . 19 

GuageTemplateRGCoverageOfTemplate . 20 

InitDISPLAY . 3 

InitDISPLAYABSTRACTION . 4 

InitITEMPLATE . 5 

Ini  t  PRESENTATION . 2 

InitPresentationModel . 1 

InitTEMPLATE . 6 

InitTEXT . 7 

MakeColumnString . 21 

MakeDef  aultTextStr  ing . 8 

MakeDisplayName . 9 

MakeTextHe  ight . 10 

MakeTextWidth . 11 

SelectDefaultDisplay . 22 

SelectDisplay . 23 

SelectFromAmongSuf  f  icien  tDi  splays . 24 

SupplyConceptMetalndicator . 25 

SupplyRoleMetalndicator . 26 

TemplateCGCoversTemplateCGP . 27 

TemplateOutSpec  i  f  iesTemplateP . 28 

TLOisplay . 29 
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(FILECREATED  "19-Jan-8L  22:43:26"  <NEWAIPS>AIPSDISPLAY . . 47  30099 


changes  to:  InitDISPLAY 

previous  date:  "19-Jan-81  01:02:42"  <NEWAIPS>AIPSDISPLAY. .46) 


(PRETTYCOMPRINT  AIPSDISPLAYCOMS) 

(RPAQQ  AIPSDISPLAYCOMS  ( (PNS  *  AIPSDISPLAYINITFNS) 

(FNS  *  AIPSDISPLAYDERIVATIONFNS) 

(FNS  *  AIPSDISPLAYUTILITYFNS) 

(FNS  *  AIPSDISPLAYTOLOCATEFNS) 

(DECLARE:  EVAL0COMPILEWHEN 

(NOT  (BOUNDP  (QUOTE  BMGCOMS) ) ) 

DONTCOPY 

( F I LES  <  FONTWORK  >  BMGRECORDS ANDVARS . . 0 ) ) 
(ADDVARS  (CKLONEFILES  AIPSDISPLAY) ) ) ) 

(RPAQQ  AIPSDISPLAYINITFNS  (InitPresencationModel  InitPRESENTATION 

InitDISPLAY 

InitDISPLAYABSTRACTION 
InitITEMPLATE  InitTEMPLATE 
InitTEXT) ) 

(DEFINEQ 


Ul 


(InitPresentationModel 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

22-Jul-80.) 

(*  Initializes  the  Presentation  Model  for  AIPS. 

These  concepts  describe  the  linkage  between  information  being 
output  and  the  structure  of  the  output.) 


(InitPRESENTATION) 

(InitDISPLAY) 

(Ini tDISPLAYABSTRACTION ) 

(InitTEMPLATE) 

(InitITEMPLATE) 

(InitTEXT) 

(*  These  initialization  functions  build  Si-Net  descriptions  of 
the  principal  Display  types,  such  as  Map,  Table,  Menu,  etc.) 
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( Ini tTableConcepts ) 
(InitMapConcepts] ) 


(Ini tPRESENT AT ION 
[LAMBDA  NIL 

[concept  PRESENTATION 


{2} 


(*  Edited  by  P.Zdybel  on 
4- Jul-80 . ) 


(*  The  top-level  concept  of  the  Presentation  Model  for  AIPS. 
This  description  embraces  all  forms  of  information  output, 
including  synthesized  natural  language  messages  and 
synthesized  speech,  as  well  as  graphic  displays.) 


[roleset  Application 


(*  This  Roleset  is  intended  to  express  the  binding  of  some 
particular  (Individual)  Presentation  to  a  set  of  information 
which  is  to  be  displayed.  Other  Roles  of  the  generic 
description  of  the  Presentation  may  imply  that  further 
information  may  be  involved  in  all  Presentations  of  a 
particular  type.) 


(number  (0  NIL)) 
(vr  ITEMPLATE) ] 
[roleset  Realization 


(*  This  Roleset  characterizes  the  internal  structure  of  the 
Presentation  as  a  group  of  consitituents ,  which  might  be 
anything.  This  Role  is  differentiated  and  modified  by  generic 
descriptions  descendant  from  Presentation.) 


(number  (0  NIL)) 
(vr  THING) ]] ] ) 


{3} 


(InitDISPLAY 
[LAMBDA  NIL 

[concept  DISPLAY 


(*  Edited  by  J. Gibbons  on 
19-Jan-81.) 
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(*  A  Graphically  realized 
Presentation. ) 

(specializes  PRESENTATION  DISPLAYITEM) 

[roleset  NIL 

(mods  Realization@PRESENTATION) 

(vr  DISPLAYITEM) 


(*  A  Display  is  either  a  Presentation  or  a  Display  Form. 
Expansion  of  the  description  of  any  individual  Display 
terminates  at  the  level  of  Display  Forms 

(the  Viewing  Organization  and  Realization  Models  of  AIPS.)) 


[roleset  Ground 
(modality  Obligatory) 
(vr  VIEWSURFACE) ] 


(*  This  Roleset  describes  the  coordinate  system  and  any 
boundaries  of  the  bit  map  surface  on  which  the  Display  will  be 
realized . j 


[roleset  Name 
(vr  STRINGP) 

(derivation  (MakeDisplayName) ) ] 
(itags  (ToDraw  TDDisplay) 

(ToLocate  TLDisplay) ) ]] ) 


{4} 

( In i tDISPLAYABSTRACTION 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

14-Jul-80.) 

[concept  DISPLAYABSTRACTION 

(*  Abstractions  of  Displays  are 
individuals  of  this  concept.) 

(specializes  DISPLAYITEMABSTRACTION) 

[roleset  IntendedApplication 
(number  (1  NIL)) 

(vr  TEMPLATE)) 


(*  This  role  is  used  in  the  abstraction  of  a  Display  to 
indicate  what  kind  of  information  the  Display  can  depict. 

In  the  case  of  MAP,  for  example,  the  role  is  filled  at  the 
abstraction  of  map  by  two  templates  that  indicate  that  a  map 
can  be  used  to  depict  the  locations  of  physical  objects  or  the 
boundaries  of  regions.) 
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[roleset  InformationRequirement 
(number  (1  NIL) ) 

(vr  TEMPLATE) ) 


(*  Give  a  means  of  characterizing  how  much  information  will 
have  to  be  known  in  order  to  realize  a  Display.) 


II) 


{5} 


(InitITEMPLATE 
(LAMBDA  NIL 

(concept  ITEMPLATE 


(*  Edited  by  P.Zdybel  on 
4-Jul-80.) 


(*  A  Template  whose  Concept  Group  Role  restricts  it  to  the 
description  of  slots  inherited  by  Individual  Concepts.) 


(specializes  TEMPLATE) 

[roleset  NIL 

(mods  ConceptGroup@TEMPLATE) 
(vr  ICONCEPT) ] ]] ) 


{6} 


(InitTEMPLATE 
[LAMBDA  NIL 

[concept  TEMPLATE 


(*  Edited  by  F.Zdybel  on 
4-Jul-80.) 


(*  A  Template  is  a  meta-description  that  characterizes  a  set 
of  inherited  Rolesets  in  an  Si-Net  hierarchy. 

Its'  function  is  to  indicate  a  chunk  of  information,  as  for 
example  in  characterizing  the  Domain  World  extension  that  is 
involved  in  an  individual  of  Presentation.) 


[roleset  ConceptGroup 


(*  All  Templates  are  individual  descriptions. 

The  satisfiers  of  the  Concept  Group  Role  meta-indicate 
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Concepts  in  the  Domain  World  as  a  way  of  specifying 
sub-lattices  of  the  Domain  Model  within  which  inheritance  of 
the  specified  Rolesets  (specified  by  the  Role  Group  Role  of 
Template)  is  to  be  considered  as  part  of  the  set  of 
information  being  described.) 


(number  (0  NIL)) 
(vr  CONCEPT) ] 
(roleset  RoleGroup 


(*  The  satisfiers  of  the  Role  Group  Role  meta-indicate 
Rolesets  in  the  Domain  World  Model.  Because  of  the  inheritance 
of  Rolesets,  this  is  an  intensional  characterization  of  a  set 
of  inherited  Roles.  This  characterization  is  limited  in  scope 
by  the  fillers  of  the  Concept  Group  Role,  which  specify 
subsets  of  the  Si-Net  within  which  inheritance  of  the 
specified  Roles  is  to  be  considered  as  generating  the 
extension.) 


(modality  Obligatory) 
(number  (1  NIL)) 

(vr  ROLE) 111) 


{7} 


(InitTEXT 

(LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

12-Dec-80 . ) 

[concept  TEXT 


(*  Instances  of  Text  may  be  called  on  to  display  practically 
anything.  There  is  therefore  no  IntendedApplication  Template 
on  TEXT'S  abstraction.  Instead,  TEXT  is  selected  by  default 
whenever  no  other  Display  with  specified  IntendedApplication 
can  be  discovered  that  discharges  the  purpose  at  hand.) 


(specializes  DISPLAY) 

(abstraction  [iconcept  TEXTABSTR  of  DISPLAYABSTRACTION) ) 
[roleset  NIL 

(mods  Realization@DISPLAY) 

(number  0)1 


(*  A  kluge  of  sorts,  TEXT  itself  has  no  Realization,  since  it 
is  itself  also  a  descendant  of  DISPLAYITEM . ) 
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[roleset  String 

(modality  Obligatory) 

(number  1) 

(vr  STRINGP) 

(f illwhenmade) 

[derivation  (MakeDef aultTextStr ing  (Prerequisites  Application) 

(Arguments  (CAR 

{ $$CONCEPT; Application} ] ] 

[roleset  Font 
(vr  SMALLP) 

(defaultf iller  BMGDefaultRegionFontNumber ) ] 

[roleset  LineSpacing 
(vr  SMALLP) 

(defaultf iller  BMGDef aultRegionLineSpacing) ] 

[roleset  NIL 

(mods  Height@DISPLAY) 

(derivation  (MakeTextHeight  (Prerequisites  String  Font  LineSpacing) 

(Arguments  $$CONCEPT?Str ing} : 1 
$$CONCEPT;Font} : 1 
{ $$CONCEPT; LineSpacing} : 1) ) )  ] 

[roleset  NIL 

(mods  Width@DISPLAY) 

(derivation  (MakeTextWidth  (Prerequisites  String  Font) 

(Arguments  J$$CONCEPT; String^ :1 

{ $  5C0NCEPT ; Fon  t } : 1 ) ) )  1 

(itags  (ToDraw  TDText) ) ] ] ) 


(RPAQQ  AIPSDISPLAYDERIVATIONFNS  (MakeDef aultTextStr ing  MakeDisplayName 

MakeTextHeight 
MakeTextWidth) ) 

(DEFINEQ 


{8} 

(MakeDef aultTextStr ing 

[ D LAMBDA  ( (application  IndividualConcept  (SATISFIES 

(application  df  'ITEMPLATE 
and 

(FLENGTH 

{ application;ConceptGroup} ) *1 
and 

(FLENGTH 

{ application;RoleGroup} ) *1) ) ) 

(RETURNS  (LST  OF  STRINGP))) 

(*  Edited  by  F.Zdybel  on 
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9-Dec-80 . ) 

(*  Makes  the  best  possible  effort  to  display  application  as  a 
piece  of  text,  incorporating  Concept  and  Role  Names  where 
necessary.  The  RoleGroup  of  application  is  expected  to  consist 
of  a  single  role  metaindicator,  the  ConceptGroup  of  a  single 
iconcept  metaindicator.) 


(for  roleFiller  in  (KLFindRoleValues  (KLGetMetaDescr ibedEntity 

{ application;ConceptGroup} : 1 
(KLGetNamedContext 

' AIPSDOMAINMETA) ) 
(KLGetMetaDescr ibedEntity 
{ applicationjRoleGroup] : 1 
( KLGe tNamedCon  text 

’AIPSDOMAINMETA) ) ) 


collect  (if  (KLConceptP  roleFiller) 

then  (GAR  (NLSETQ  (SendMessage  roleFiller  ’ToTextify) ) ) 
or  (MKSTRING  (OR  { roleFiller ;Name }: 1 

(KLGetConceptName  roleFiller) ) ) 

elseif  roleFiller  =  T 
then  "Yes" 

elseif  roleFiller  =  NIL 
then  "No" 

else  (MKSTRING  roleFiller)) 
finally  (RETURN  < (if  ~$$VAL::1 

then  $  $ VAL : 1 

else  (MakeColumnString  $$VAL) ) 

>))]) 


19} 


(MakeDisplayName 

[DLAMBDA  ((RETURNS  (LST  OF  STRINGP) ) ) 

(*  Edited  by  F.Zdybel  on 
17-Nov-80.) 

(*  The  last  ditch  effort  to  create  a  name  for  a  Map  is  based 
on  the  name  of  the  prototype  map  and  a  GENSYM.) 


(PROG  ( (currentNumber  ( ( (KLGetData  $$PROTOTYPE  'NumberCreatedSoFar ) : 1 

or  0)+  1))) 

(KLAttachDatum  $$PROTOTYPE  'NumberCreatedSoFar  currentNumber) 
(RETURN  < (CONCAT  (KLGetConceptName  $$PROTOTYPE) 

"  #"  currentNumber) 

>))]) 
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{10} 


(MakeTextHeight 

[DLAMBDA  ((string  STRINGP) 

(fontNumber  BMGFontNumber ) 

(lineSpacing  SMALLP) ) 

(*  Edited  by  J. Gibbons  on 
12-Dec-80 . ) 

(*  Calculates  the  Height  of  a  TTYString  in  pixels  according  to 
the  specified  Pont.  NOTE:  This  also  depends  on  the  LineSpacing 
of  the  BMGRegion  in  which  the  TTYString  will  appear. 

We  cannot  handle  this  aspect  currently  and  use  the  LineSpacing 
value  of  the  current  Graphics  Region.) 


<(if  string  equal  "" 
then  0 

else  lineSpacing* (bind  characterCode  for  character 

in  (UNPACK  string)  eachtime  characterCode_( 

CHC0N1  character) 

count  characterCode=10  or  characterCode=31) + ( 
BMGDescr ibeFont  fontNumber) :LoadedFont\FontRecord:Font\Height) 

>1) 


{11} 


(MakeTextWidth 

[DLAMBDA  ((string  STRINGP) 

(fontNumber  BMGFontNumber)) 

(*  Edited  by  J. Gibbons  on 
15-Dec-80.) 

(*  Calculates  the  maximum  width  of  the  given  String  in  pixels, 
ie.  the  width  of  its  longest  line,  according  to  the  specified 
font.) 


(bind  characterCode  cur rentWidth_0 

maximumWidth_0  for  character  in  (UNPACK  string) 
do  (characterCode_(CHCONl  character)) 

(if  characterCode=13  or  characterCode=31 

then  maximumWidth_(IMAX  currentWidth  maximumWidth) 
currentWidth_0 
elseif  characterCode“*10 

then  (currentWidth_cur rentwidth+ (GetFontCharacterDef 

fontNumber 


:CharDef\Width) ) 

finally  (RETURN  <(IMAX  currentWidth  maximumWidth) 


characterCode) 
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) 


>))]) 


(RPAQQ  AIPSDISPLAYUTILITYFNS 


(DEFINEQ 


(AIPSGetSpecif iedMetaDescr iptions 

CollectTemplatesDescr ibingEnti ty 
FindApplicableApplicationSlots 
FindApplicationObjects 
FindCostOf Display 
F indCover inglntendedAppl ication 
FindTemplateObjects 
FindTemplateSlots 
GuageTemplateRGCoverageOf Template 

MakeColumnStr ing 
S elec tDefaultDi splay 
SelectDisplay 
SelectFromAmongSuf f icientDi splays 
SupplyConceptMetalndicator 
SupplyRoleMetalndicator 
TemplateCGCoversTemplateCGP 
TemplateOutSpecif iesTemplateP) ) 


{12} 


(AIPSGetSpecif iedMetaDescr iptions 
[ DLAMBDA  ( (descr ibedEntity  MetaDescribableEntity) 

(metaDescRestr iction  Concept) 

(RETURNS  (LST  OF  IndividualConcept) ) ) 

(*  Edited  by  F.Zdybel  on 
19-Jun-80 . ) 


(*  Finds  all  metadescriptions  of  describedEntity  that  are  eq 
to  or  subCs  of  metaDescRestr iction) 


(for  metaDescr iption  in  (KLGetMetaDescr iptions  describedEntity) 
when  (metaDescr iption=metaDe scRes trie t ion) 

or  (metaDescr iption  df  metaDescRestr iction) 
collect  metaDescr iption) ] ) 


{ 13} 


(CollectTemplatesDescr ibingEntity 
[DLAMBDA  ( (domainEntity  IndividualConcept) 

(templateList  (LST  OF  IndividualConcept)  (SATISFIES 

( 

HomogenousConceptListP  templateList  'TEMPLATE))) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES 

(HomogenousConceptListP 
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VALUE  'TEMPLATE) ) ) ) 
(*  Edited  by  F.Zdybel  on 
30-Jul-80.) 

(*  Searches  through  the  templates  in  templateList  and  collects 
together  all  templates  that  refer  to  the  domainEntity . ) 


(for  template  in  templateList 

when  (for  entityMetaDescription  in  { template;ConceptGroup} 
bind  templateEntity  eachtime  templateEntity_( 

KLGe tMe taDescr i bedEn t i ty 
entityMetaDescription 
(KLGe tNamedCon text 

' AIPSDOMAINMETA) ) 

there is  domainEntity® templateEntity 

or  (KLGener icConceptP  templateEntity) 
and  domainEntity  df  templateEntity) 
and  [for  roleMetaDescr iption  in  { template ;RoleGroup} 


thereis 


collect  template) ] ) 


(KLFindRoleValues  domainEntity 

(KLGe  tMe  taDescr ibedEn  t i ty 
roleMetaDescr iption 
(KLGe tNamedCon text 

' AIPSDOMAINMETA) 


(FindApplicableApplicationSlots 

[DLAMBDA  ( (domainEntity  IndividualConcept) 

(templateList  (LST  OF  IndividualConcept)  (SATISFIES 

( 

HomogenousConceptListP  templateList  'TEMPLATE))) 

(RETURNS  (LST  OF  Role))) 

(*  Edited  by  F.Zdybel  on 
5-Aug-80 . ) 

(*  Searches  through  the  templates  on  templateList  and  collects 
together  all  of  the  roles  metaindicated  by  templates  that  CG 
cover  domainEntity.) 


(for  template  in  templateList 

when  (for  templateObject  in  (FindTemplateObjects  template) 
thereis  (if  (KLIndividualConceptP  templateObject) 
then  domainEntity=templateObject 
else  domainEntity  df  templateObject) ) 
join  (FindTemplateSlots  template)  finally  (RETURN 

(INTERSECTION  $$VAL 

$$VAL) ) ) ] ) 
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(FindApplicationObjects 

[DLAMBDA  ( (templateList  (LST  OF  IndividualConcept)  (SATISFIES 

( 

HomogenousConceptListP  templateList  “TEMPLATE) ) ) 

(RETURNS  (LST  OF  Concept) ) ) 

(*  Edited  by  F.Zdybel  on 
5-Aug-80 . ) 

(*  Goes  through  templateList  and  constructs  a  list  of  all  the 
domain  entities  indicated  by  the  ConceptGroup  fillers  of  the 
templates.) 


(for  template  in  templateList  join  (FindTemplateObjects  template) 
finally  (RETURN  (INTERSECTION  $$VAL  $$VAL) ) ) 1 ) 


{16} 

(FindCostOf Display 

[DLAMBDA  ( (display  Gener icConcept  (SATISFIES  (display  df  “DISPLAY))) 
(proposedApplication  IndividualConcept  (SATISFIES 

(proposedApplication 
df  “I TEMPLATE) ) ) 

(RETURNS  NUMBERP) ) 

(*  Edited  by  F.Zdybel  on 
4-Jul-80.) 

(*  At  the  moment,  the  best  measure  we  can  get  for  the  cost  of 
a  display  is  the  number  of  RoleGroup  Role  fillers  of  the 
InformationRequirement  that  applies  to  the  subjects 
(ConceptGroup  Role  fillers)  of  proposedApplication. 

The  assumption  is  that  the  InformationRequirement  templates  on 
a  display's  abstraction  are  disjoint  with  respect  to  subject.) 


(FLENGTH  {  (for  costTemplate  in  { (KLGetAbstr action  display) 

; InformationRequirement} 

thereis  (TemplateCGCover sTemplateCGP  costTemplate 

proposedApplication) ) 


;  RoleGroup} ) ] ) 


117} 


(FindCover ingin tendedApplicat ion 

[DLAMBDA  {(display  Gener icConcept  (SATISFIES  (KLIsConceptDescendantP 
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display  'DISPLAY))) 

(proposedApplication  IndividualConcept  (SATISFIES 

(KLIsConceptDescendantP 
proposedApplication 
'I TEMPLATE) ) ) 

(RETURNS  (ONEOF  (IndividualConcept  (SATISFIES 

(KLIsConceptDescendantP 
VALUE  'TEMPLATE) ) ) 

NIL) ) ) 

(*  Edited  by  F.Zdybel  on 
2  3- Jul-80 . ) 

(*  Finds  the  IntendedApplication  template  on  display's 
abstraction  that  has  to  do  with  the  subjects 
(ConceptGroup  fillers)  of  proposedApplication. 

The  assumption  is  that  IntendedApplications  on  a  display's 
abstraction  are  disjoint  with  respect  to  subject.) 


(for  intendedApplication  in  { (KLGetAbstraction  display) 

; IntendedApplication} 

there  is  (TemplateCGCoversTemplateCGP  intendedApplication 

proposedApplication) ) ] ) 


{18} 


(FindTemplateObjects 

[DLAMBDA  ( (template  IndividualConcept  (SATISFIES  (KLIsConcentDescendantP 

template  'TEMPLATE) ) ) 


(RETURNS  (LST  OF  Concept) ) ) 


(*  Edited  by  F.Zdybel  on 
30-Jul-80.) 


(for  objectDescr iptor  in  { template ;ConceptGroup} 

collect  (KLGetMetaDescr ibedEntity  objectDescr iptor 

(KLGetNamedContext 

)  )]) 


’  AIPSDOMAINMETA) 


{19} 

(FindTemplateSlots 

[DLAMBDA  ( (template  IndividualConcept  (SATISFIES  (template  df  'TEMPLATE) ) ) 
(RETURNS  (LST  OF  Role))) 

(*  Edited  by  F.Zdybel  on 
5-Aug-80 . ) 

(for  slotDescr iptor  in  { template ;RoleGroup} 

collect  (KLGetMetaDescr ibedEntity  slotDescr iptor 

(KLGetNamedContext  ’ AIPSDOMAINMETA) 

))]> 
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{20} 


(GuageTemplateRGCoverageOf Template 

[ D LAMBDA  ( (superTemplate  IndividualConcept  (SATISFIES  ( 
KLIsConceptDescendantP  superTemplate  'TEMPLATE) ) ) 

(subTemplate  IndividualConcept  (SATISFIES  ( 
KLIsConceptDescendantP  subTemplate  'TEMPLATE) ) ) 

(RETURNS  FIXP) ) 

(*  Edited  by  F.Zdybel  on 
30-Jul-80.) 

(*  Finds  the  number  of  RoleGroup  fillers  in  superTemplate  that 
metaindicate  Roles  that  are  ancestors  of 

(or  EQ  to)  the  roles  metaindicated  by  the  RoleGroup  fillers  of 
subTemplate . ) 


(for  superRoleMetalndicator  in  { superTemplate; RoleGroup} 
bind  (context  _(KLGetNamedContext  ' AIPSDOMAINMETA) ) 
deg reeOf Cover age_0 
superRole  subRoles 

first  subRoles_(for  subRoleMetalndicator  in  { subTemplate; RoleGroup! 

collect  (KLGetMetaDescr ibedEntity 

subRoleMetalndicator 
context ) ) 

eachtime  superRole_ (KLGetMetaDescr ibedEntity  superRoleMetalndicator 

context) 

when  (for  subRole  in  subRoles  thereis  (KLIsRoleDescendantP  subRole 

superRole) ) 

do  degreeOfCoverage_degreeOfCoverage+l 
finally  (RETURN  degreeOfCoverage) ) ] ) 


{21} 


(MakeColumnStr ing 

[LAMBDA  (stringList)  (*  Edited  by  F.Zdybel  on 

9-Dec-80 . ) 

(*  Takes  a  list  of  strings  and  returns  a  single  string  which 
includes  n-1  CRLF's  among  the  n  elements  of  the  input  list.) 


(APPLY  'CONCAT  (for  fillerstring  in  stringList::! 

bind  (firstElt  __  stringList:  1) 
join  <" 

"  f illerStr ing>  finally  (RETURN  <firstElt  I  $$VAL>1) 


{22} 
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(SelectDefaultDi splay 

[ DLAMBDA  ( (proposedApplication  IndividualConcept  (SATISFIES 

(proposedApplication 
df  'I TEMPLATE)  )  ) 

(RETURNS  GenericConcept  (SATISFIES  (VALUE  df  'DISPLAY)))) 

(*  Edited  by  F.Zdybel  on 
20-Jul-80.) 

(*  Selects  from  either  TABLE  or  TEXT  depending  on  whether 
there  is  more  than  one  RoleGroup  filler  in 

proposedApplication.  This  is  a  last  ditch  effort  to  find  a  way 
of  displaying  some  information  for  which  no  tailored  Display 
exists.  Note  that  a  Table  or  a  Text  can  be  arbitrarily 
combined  into  the  containing  Display  even  if  neither  TABLE  or 
TEXT  are  value  restrictions  on  that  Display's  Realization 
Role . ) 


(if  {proposedApplication;RoleGroup} : : 1 
then  'TABLE 
else  'TEXT) ] ) 


{23} 


(SelectDisplay 

[DLAMBDA  ( (proposedApplication  IndividualConcept  (SATISFIES 

(KLIsConceptDescendantP 
proposedApplication 
'I TEMPLATE) ) ) 

(possiblePrototypes  (LST  OF  GenericConcept)  (SATISFIES 

( 

HomogenousConceptListP  possiblePrototypes  'DISPLAY) ) ) 

(RETURNS  Gener icConcept  (SATISFIES  (KLIsConceptDescendantP 

VALUE  'DISPLAY)))) 

(*  Edited  by  F.Zdybel  on 
4-Aug-80 . ) 

(*  Searches  through  possiblePrototypes  to  find  the  prototype 
Mapltem  that  best  suits  applicationTemplate. 

At  this  point  the  general  approach  is  to  find  the  set  of  all 
displays  with  sufficient  IntendedApplication  to  support 
proposedApplication  (or  to  find  the  one  display  that  most 
supports  proposedApplication) .  If  more  than  one  display  is 
applicable,  we  will  (for  the  moment)  take  the  most  specific 
one.  Eventually,  the  algorithm  should  go  on  to  consider  the 
cost  of  the  candidate  displays.) 


[for  prototype  in  possiblePrototypes 
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bind  (maximumCoverage  _(FLENGTH  {proposedApplicationjRoleGroup} ) ) 
currentBestPrototype  cur rentBes tDegr eeOf Cove rage_0 
proto typelntendedApplicationOf Interest 

candidateDegreeOfCoverage  completelySuf f icientPro to types 
when  pro to typelntendedApplicationOf Interest_( 

FindCover inglntendedApplication  prototype  proposedApplication) 
do  (if  candidateDegreeOfCoverage_ (GuageTemplateRGCover ageOfTemplate 
pro to typelntendedApplicationOf Interest  proposedApplication) 
=max imumCo v  e  rage 

then  completelySuf f ic ientPrototypes_ 

<  ! !  completelySuf ficientPrototypes  prototype> 
elseif  candidateDegreeOfCoverage  gt  cur rentBestDegreeOfCoverage 
then  currentBestPrototype_prototype 

currentBestDegreeOfCoverage_candidateDegreeOf Cover age) 
finally  (RETURN  (if  completelySuf ficientPrototypes 

then  (SelectFromAmongSuf f icientDi splays 

completelySuf  f icientPrototypes 
proposedApplication) 

elseif  currentBestPrototype 
then  currentBestPrototype 
else  (SelectDef aultDisplay  proposedApplication) ] ) 


{  24> 


(SelectFromAmongSuf f icientDi splays 

[DLAMBDA  (  (alternativeDisplays  (LST  OF  Gener icConcept)  (SATISFIES 

i 

\ 

HomogenousConceptListP  alternativeDisplays  "DISPLAY) ) ) 

(proposedApplication  IndividualConcept  (SATISFIES 

(proposedApplication 
df  'I TEMPLATE) ) ) 

(RETURNS  Gener icConcept  (SATISFIES  (VALUE  df  "DISPLAY)))) 

(*  Edited  by  F.Zdybel  on 
18-Jul-80.) 

(*  Tries  to  find  the  display  of  minimum  information  cost. 

If  several  candidates  have  the  same  cost,  tries  to  find  the 
most  specialized.) 


[for  prototypeDisplay  in  alternativeDisplays  bind  mostMinimalPrototypes 

( 


costOfMostMinimalPrototypes  _ 
eachtime  costOfCandidate 


MAXFIX) 


costOfCandidate 

(FindCostOf Display  prototypeDisplay 

proposedAppl ication) 


(*  We  are  assuming  for  the  moment  that  the 
InformationRequirements  role  is  filled  by  at  most  one 
template . ) 
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do  (if  costOfCandidate  It  costOfMostMinimalPrototypes 
then  mostMinimalPrototypes_< 
pr o to typeDi splay > 

elseif  costOfCandidate  =  costOfMostMinimalPrototypes 
then  mostMinimalPrototypes_  <!!  mostMinimalPrototypes 

pr o to typeDi splay >) 

finally  (RETURN  (if  “mostMinimalPrototypes :: 1 

then  mostMinimalPrototypes : 1 
else  (FindMostSpecializedConcept 

mostMinimalPrototypesl ] ) 


{25} 

(SupplyConceptMetalndicator 
[ DLAMBDA  ( (concept  Concept) 

(contextName  LITATOM) 

(RETURNS  IndividualConcept) ) 

(*  Edited  by  F.Zdybel  on 
ll-Jul-80 . ) 

(*  Finds  or  creates  a  metadescription  for  the  given  concept  in 
either  the  given  context  or  the  first  of  the  currently  active 
contexts . ) 


[OR  (CAR  (KLGetMetaDescriptions  concept  (if  contextName 

then  (KLGetNamedContext 
contextName) 


(KLCreateContext 
contextName) 
else  $$CONTEXTS: 1) ) ) 

[iconcept  of  CONCEPT 

[contexts  ((if  contextName 

then  (KLGetNamedContext  contextName) 

or  (KLCreateContext  contextName) 
else  $$CONTEXTS : 1) ) 

(metadescribes  (atomval  concept) )[]]] ) 


{26} 

(SupplyRoleMetalndicator 
[DLAMBDA  ((role  Role) 

(contextName  LITATOM) 

(RETURNS  IndividualConcept) ) 

(*  Edited  by  F.Zdybel  on 
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ll-Jul-80 . ) 

{*  Either  finds  or  creates  a  meta-description  of  the  given 
role  in  either  the  given  context  or  the  first  of  the  currently 
active  contexts.) 


[OR  (CAR  (KLGetMetaDescr iptions  role  (if  contextName 

then  (KLGetNamedContext 

contextName) 
or  (KLCreateContext 
contextName) 
else  $$C0NTEXTS:1) ) ) 


[iconcept  of  ROLE 

[contexts  ((if  contextName 

then  (KLGetNamedContext  contextName) 

or  (KLCreateContext  contextName) 
else  $$CONTEXTS: 1) ) 

(metadescribes  (atomval  role))]]]]) 


{27} 


(TemplateCGCoversTemplateCGP 

[DLAMBDA  ( (superTemplate  IndividualConcept  (SATISFIES  (superTemplate 

df  'TEMPLATE) ) ) 

(subTemplate  IndividualConcept  (SATISFIES  (subTemplate  df 

'TEMPLATE) ) ) 

(RETURNS  [ONEOF  NIL  (IndividualConcept  (SATISFIES  (VALUE  df 

'TEMPLATE] ) ) 

(*  Edited  by  F.Zdybel  on 
4-Jul-80. ) 

(PROG  ((superObjects  (FindTemplateObjects  superTemplate)) 

(subObjects  (FindTemplateObjects  subTemplate))) 

(RETURN  (if  (for  subObject  in  subobjects 

always  (for  superObject  in  superObjects 

thereis  subobject  df  superObject) ) 
then  superTemplate 
else  NIL) ) ) ] ) 


{28} 


(TemplateOutSpecif iesTemplateP 

[DLAMBDA  ( (subTemplate  IndividualConcept  (SATISFIES  (subTemplate  df 

'TEMPLATE) ) ) 

(superTemplate  IndividualConcept  (SATISFIES  (superTemplate 

df  'TEMPLATE) ) ) 

(RETURNS  [ONEOF  NIL  (IndividualConcept  (SATISFIES  (VALUE  df 

'TEMPLATE] ) ) 

(*  Edited  by  F.Zdybel  on 
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27-Jun-80 . ) 

(*  Tests  to  see  whether  the  subTemplate  names  only  objects 
that  are  descended  from  the  objects  named  in  the 
superTemplate,  and  that  all  of  the  slots  named  in  the 
superTemplate  are  also  included  in  the  subTemplate. 

Put  another  way,  this  function  checks  to  be  sure  that  the 
ConceptGroup  of  superTemplate  covers  the  ConceptGroup  of 
subTemplate  and  the  RoleGroup  of  subTemplate  covers  the 
RoleGroup  of  superTemplate.) 


) 


(PROG  ((superObjects  (FindTemplateOb jects  superTemplate)) 
(superSlots  (FindTemplateSlots  superTemplate)) 

(subobjects  (FindTemplateObjects  subTemplate)) 

(subSlots  (FindTemplateSlots  subTemplate))) 

(RETURN  (if  (for  subObject  in  subObjects 

always  (for  superObject  in  superObjects 

thereis  subObject  df  superObject) ) 
and  (for  superSlot  in  superSlots 

always  (for  subSlot  in  subSlots 

thereis  (KLIsRoleDescendantP 

subSlot  superSlot) ) ) 

then  subTemplate)))]) 


(RPAQQ  AIPSDISPLAYTOLOCATEFNS  (TLDisplay) ) 
(DEFINEQ 


{29} 

(TLDisplay 

[ D LAMBDA  (  (displayDescr  IndividualConcept  (SATISFIES  (displayDescr  df 

'DISPLAY) ) ) 

(displayLoc  (ONEOF  NIL  (LISTP  OF  FIXP  (SATISFIES  "displayLoc :: 2) 

)  )) 

(displayGround  (ONEOF  NIL  (IndividualConcept 

(SATISFIES  (displayGround  df 

'VIEWSURFACE] ) ) 

(*  Edited  by  F.Zdybel  on 
16-Dec-80.) 

(*  If  given  a  ground,  changes  or  establishes  the  Ground  Role 
of  displayDescr.  If  given  a  location,  changes  or  establishes 
the  Location  Role  of  displayDescr.) 


(PROG  (currentLocationRole  cur rentGroundRole) 

(if  displayLoc 

then  (if  currentLocationRole  (KLFindOneNamedlnstanceRole 
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displayDescr  ’Location) 
then  (KLChangeRoleValue  cur rentLocationRole 

displayLoc) 

else  (KLSatisfyRole  Location@DISPLAY  displayDescr 

<displayLoc>) ) ) 

(if  displayGround 

then  (if  currentGroundRole_(KLFindOneNamedInstanceRole 

displayDescr 

’Ground) 

then  (KLChangeRoleValue  cur rentGroundRole 

displayGround) 

else  (KLSatisfyRole  Ground@DISPLAY  displayDescr 

<displayGround>] I ) 

) 

(DECLARE:  EVAL @COMP I LEWHEN  (NOT  (BOUNDP  (QUOTE  BMGCOMS ) ) )  DONTCOPY 
(FILESLOAD  <FONTWORK>BMGRECORDSANDVARS . . 0 ) 

) 

(ADDTOVAR  CKLONEFILES  AIPSDISPLAY) 

STOP 
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6.  SOURCE  FILE:  AIPSDOMAIN 

InitCoramonDomainModel . 1 

I  n  i  t D I  STANCE . 2 

InitDISTANCEUNIT . 3 

Ini  t  INTERVAL . 4 

I  n  i  t  INTERVALUN  IT . 5 

InitMETRIC . 6 

InitPHYSOBJECT . 7 

InitPLACE . 8 

InitPOSITION . 9 

InitREGION . 10 

InitSPEED . 11 

InitSPEEDUNIT . 12 

InitTIME . 13 

InitUNIT . 14 

InitVEHICLE . 15 

TTXPos  ition . 16 
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(PILECREATED  "10-Dec-80  23:41:31"  <NEWAIPS>AIPSDOMAIN . . 5  8837 
changes  to:  TTXPosition 

previous  date:  "10— Dec-80  01:48:00"  <NEWAIPS>AIPSDOMAIN. . 4) 


(PRETTYCOMPRINT  AIPSDOMAINCOMS) 

(RPAQQ  AIPSDOMAINCOMS  (  (FNS  *  AIPSDOMAININITFNS ) 

(FNS  *  AIPSDOMAINTOTEXTIFYFNS) 
(ADDVARS  (CKLONEFILES  AIPSDOMAIN) ) ) ) 


(RPAQQ  AIPSDOMAININITFNS 


(DEFINEQ 

(InitCommonDomainModel 
[LAMBDA  NIL 


In itDI STANCE 
I n i tD I ST ANCEUN I T 
Ini t INTERVAL 

InitINTERVALUNIT  InitMETRIC 
InitPHYSOBJECT  InitPLACE 
InitPOSITION  InitREGION 
InitSPEED  Ini tSPEEDUNIT 
InitTIME  InitUNIT 
InitVEHICLE) ) 

{1} 


(*  Edited  by  F.Zdybel  on 
10-Jul-80 . ) 


(initCommonDomainModel 


(*  Sets  up  some  of  the  very  high  level  concepts  of  the  domain 
world,  which  are  referenced  by  templates  associated  with 
various  Displays.) 


(InitPHYSOBJECT) 

(InitVEHICLE) 

(InitPLACE) 

(InitPOSITION) 

(InitREGION) 

(InitTIME) 

(InitMETRIC) 

(InitDISTANCE) 

(In it INTERVAL) 

(InitSPEED) 

(InitUNIT) 

(InitDISTANCEUNIT) 

(InitINTERVALUNIT) 

(InitSPEEDUNIT] ) 
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(2} 


( I n i tD I STANCE 
[LAMBDA  NIL 

[concept  DISTANCE 


(specializes  METRIC) 
[roleset  NIL 

(mods  Unit@METRIC) 

(vr  DISTANCEUNIT) ] ] ] ) 


(*  Edited  by  F.Zdybel  on 
9-Jul-80.) 

(*  Describes  distance,  linking 
a  distance  unit  with  a 
magnitude . ) 


{3} 


(InitDISTANCEUNIT 
[LAMBDA  NIL 

[concept  DISTANCEUNIT 


(*  Edited  by  F.Zdybel  on 
9-Jul-80.) 


(*  Should  establish  a  way  of  expressing  equivalences  among 
distance  units.  For  the  moment  merely  establishes  the 
abbreviation  for  the  unit.) 


(specializes  UNIT) 
[roleset  NIL 

(mods  Subject@UNIT) 
(vr  DISTANCE) ] ] ] ) 


{4} 


(In it INTERVAL 
[LAMBDA  NIL 

[concept  INTERVAL 


(specializes  METRIC) 
[roleset  NIL 

(mods  UnitSMETRIC) 

(vr  INTERVALUNIT) ] 1 ] ) 


(*  Edited  by  F.Zdybel  on 
9-Jul-80.) 

(*  The  distance  between  two 
points  in  time.) 


{5} 


45 


Source  File:  AIPSDOMAIN 


Bolt  Beranek  and  Newman  Inc. 


Report  No.  4752 


(InitINTERVALUNIT 
[LAMBDA  NIL 

[concept  INTERVALUNIT 

(*  Describes  any  unit  used  for 
measuring  the  passge  of  time.) 

(specializes  UNIT) 

[roleset  NIL 

(mods  Subject@UNIT) 

(vr  INTERVAL)]]]) 


{6} 


(InitMETRIC 
[LAMBDA  NIL 

[concept  METRIC 

(*  Describes  measurement  of 
something . ) 

[roleset  Magnitude 
(vr  NUMBERP) ] 

[roleset  Unit 
(vr  UNIT)]]]) 


{7} 


(InitPHYSOBJECT 
[LAMBDA  NIL 

[concept  PHYSOBJECT 


[roleset  Position 
(vr  PLACE) ] 


(*  Edited  by  F.Zdybel  on 
9-JU1-80.) 

(*  Something  with  form, 
substance,  structure  and 
locability . ) 


(*  For  the  moment,  this  is  all  that  concerns  us:  objects  are 
located  somewhere  in  the  domain  world.) 


[roleset  Name 
(vr  STRINGP) ] 


(*  Most  anything  might  have  a 
name . ) ] ] ) 


{8} 


(InitPLACE 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 
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9-Jul-80.) 

[concept  PLACE 


(*  This  might  be  either  a  specific  position  or  a  region 
(it  also  might  be  several  other  things  like  "over  Paris" 
"4:00  high"  etc,  but  for  the  moment  let  us  confine  ourselves 


[roleset  Constraint 
(vr  THING) ] 


(*  Might  be  a  Point  location  (LISTP) ,  or  a  curve,  or  the 
boundary  of  a  Region.  For  the  moment  we  will  eschew  attempting 
to  characterize  these  things  at  this  value  restriction.) 


[roleset  Continuum 

(vr  COORD INATESYSTEM) ] 


(InitPOSITION 
[LAMBDA  NIL 

[concept  POSITION 
(specializes  PLACE) 


[roleset  Location 

(mods  Constraint@PLACE) 
(vr  LISTP)] 


(itags  (ToTextify  TTXPosition) ) ] ] ) 


(*  The  constraint  will  be 
relative  to  this  coordinate 
system. ) ] ] ) 

(9} 


(*  Edited  by  F.Zdybel  on 
9-Dec-80 . ) 


(*  A  discrete  position  in  some 
coordinate  system.) 


(*  Again,  a  simple  list  is  used 
for  the  coordinate  tuple.) 


(InitREGION 
[LAMBDA  NIL 

[concept  REGION 

(specializes  PLACE) 


(10} 


(*  Edited  by  J. Gibbons  on 
ll-Nov-80 . ) 
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(*  A  Multi-purpose  Concept.  ITags  on  this  concept  should  refer 
to  functions  that  can  decide  whether  a  position  is  "inside" 
the  region  and  can  compute  the  distance  to  a  boundary  of  the 
region  from  a  given  position.) 


(roleset  Boundary 

(diffs  Constraint@PLACE) 
(vr  CLOSEDCURVE) ] 


[roleset  Aperture 

(diffs  Constraint@PLACE) 
(number  (0  NIL)) 

(vr  REGION) ] 


[roleset  Height 
(vr  NUMBERP) ] 
[roleset  Width 
(vr  NUMBERP) ] ] ] ) 


(*  A  Region  never  has  more  than 
a  single  boundary.) 


(*  A  Region  may  have  holes  in 
it.) 


{11} 


(InitSPEED 
[LAMBDA  NIL 

[concept  SPEED 


(specializes  METRIC) 
[roleset  NIL 

(mods  Unit@METRIC) 
(vr  SPEEDUNIT) ] ] ] ) 


(*  Edited  by  F.Zdybel  on 
9-Jul-80.) 

(*  Describes  speed,  linking  a 
speed  unit  with  a  magnitude.) 


{12} 


(InitSPEEDUNIT 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

9-Jul-80.) 

[concept  SPEEDUNIT 


(*  Links  a  unit  for  measuring  speed  to  units  for  measuring 
distance  and  time.) 


(specializes  UNIT) 
[roleset  DistanceUnit 
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(vr  DISTANCEUNIT) ] 
[roleset  IntervalUnit 
(vr  INTERVALUNIT)] 
[roleset  NIL 

(mods  Subject@UNIT) 
(vr  SPEED) ] ] ] ) 


{13} 

(InitTIME 
[LAMBDA  NIL 
[concept  TIME 


(*  Like  PLACE,  TIME  is  a  more  or  less  specific  constraint 
imposed  on  a  CoordinateSystem.  Eons  and  Instants  are  both 
Times . ) 


[roleset  Constraint 
(vr  THING) ] 


(*  This  VR  should  become  more  elegant  when  we  have  time  for 
elegance.  Generally,  the  filler  of  this  role  is  a  NUMBERP.) 


[roleset  Continuum 
(vr  TIMESYSTEM) ] 


(*  And  there  is  (eventually)  surely  more  than  one  TimeSystem 
(e.g.:  Zulu  time,  GMT,  Sidereal  Time,  Stardate,  etc.)) 

]]) 


(InitUNIT 
[LAMBDA  NIL 

[concept  UNIT 


{14} 


(*  Edited  by  F.Zdybel  on 
9-Jul-80.) 


(*  A  unit  of  measurment  of  some  metric 
(e.g.,  speed,  time,  distance,  temperature.)) 


[rpleset  Subject 
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(vr  METRIC) ] ] ] ) 


{15} 

(InitVEHICLE 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

13-Jul-80.) 

[concept  VEHICLE 


(*  A  physical  object  capable  of  moving  around  under  its  own 
power  and  carrying  something.) 


(specializes  PHYSOBJECT) 

[roleset  Medium 
(vr  ATOM) ] 

(*  Expected  to  be  something  on 
the  order  of  Subsurface,  Air  or 
Surface . ) 

[roleset  Course 
(vr  NUMBERP) ] 


(*  Expected  to  be  a  number  between  0  and  360,  indicating  the 
direction  of  motion  of  the  Vehicle.) 


[roleset  Speed 
(vr  SPEED) ] 


(*  Gives  the  speed  of  the  vehicle  in  terms  of  distance  units 
per  time  unit.) 

11) 

) 

(RPAQQ  AIPSDOMAINTOTEXTIFYFNS  (TTXPosition) ) 

(DEFINEQ 


{ 16} 

(TTXPosition 

(LAMBDA  (positionDescr)  (*  Edited  by  F.Zdybel  on 

10-Dec-80. ) 

(*  Attempts  to  construct  a  string  which  states  the  position 
described  by  positionDescr.  At  this  level,  this  is  merely  a 
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matter  of  formatting  with  some  parens  and  a  comma.) 


) 


(PROG  ( (coordinateList  (CAR  {positionDescr ;Location} ) ) ) 

(RETURN  (APPLY  'CONCAT  (for  coordinate  in  coordinateList: : l 

bind  (firstElt  coordinateList:!) 
join  <",  "  coorcfinate> 
finally  (RETURN 

<"("  (MKSTRING  firstElt) 
!  <  ! !  $$VAL  ") "  >>] ) 


(ADDTOVAR  CKLONEFILES  AIPSDOMAIN) 
STOP 
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7.  SOURCE  FILE:  AIPSGEOGRAPHY 


InitGeographyModel ...  2 

Ini  tGEOREG  ION . 1 

Ini  tLANDFEATURE . 3 

InitLANDMASS . 4 

InitNATION . 5 

InitWATERBODY . 6 

Ini  tWATERFEATURE . 7 

Ini tWORLDPOS I T ION . . . .8 

RptCoord . 10 

TTXWor  ldPos  i  t  ion . 9 
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(FILECREATED  "ll-Dec-80  00:01:03"  <NEWAIPS>AIPSGEOGRAPHY . . 9  6330 

changes  to:  AIPSGEOGRAPHYCOMS  A I P SGEOGRAPH YUT I L I TYFNS  TTXWor ldPosition 
previous  date:  "10-Dec-80  22:03:20"  <NEWAIPS>AIPSGEOGRAPHY. .7) 


(PRETTYCOMPRINT  AIPSGEOGRAPHYCOMS) 

(RPAQQ  AIPSGEOGRAPHYCOMS  (  (FNS  *  AIPSGEOGRAPHYINITFNS) 

(FNS  *  AIPSGEOGRAPHYTOTEXTIFYFNS) 

(FNS  *  AIPSGEOGRAPHYUTILITYFNS) 

(ADDVARS  (CKLONEFILES  A I P SGEOGRAPH Y ) ) ) ) 

(RPAQQ  AIPSGEOGRAPHYINITFNS  (Ini tGEOREGION  InitGeogr aphyModel 

InitLANDFEATURE  InitLANDMASS 
InitNATION  InitWATERBODY 
Ini tWATERFEATURE 
Ini t WORLD POS I T I ON ) ) 

(DEFINEQ 


{1} 

(Ini tGEOREGION 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

10-Dec-80 . ) 

[concept  GEOREGION 


(*  A  region  on  surface  of  the  earth  that  is  modelled  as  having 
a  bounded  area.  This  might  describe  cites,  for  example,  but 
not  villages.  It  might  describe  some  rivers,  but  not  others.) 


(specializes  REGION  GEOFEATURE) 
[roleset  Name 
(vr  STRINGP) ] 

[roleset  NIL 

(mods  Continuum@REGION) 

(vr  [iconcept  WORLDCARTESIAN] ) ] 


(*  Notice  that  we  are  assuming  for  the  moment  a  single  world 
coordinate  system  that  is  not  spherical.) 


[roleset  Feature 
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(number  (0  NIL)) 
(vr  GEOFEATURE) 


(*  Notice  that  a  feature  may  also  be  a  region,  so  this  allows 
us  to  cope  with  islands  in  the  sea,  cities  on  the  land,  etc.) 


Ill) 


{2\ 


(Ini tGeog  r  aphyMode 1 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

10-Dec-80.) 

(*  This  initialization  function  grows  the  descriptions  for 
Geography  Model.  This  portion  of  the  Domain  Model  is  generally 
necessary  for  complete  description  of  a  certain  class  of  Maps 
which  include  outlines  of  land%  masses,  bodies  of  water,  etc.) 


(InitWORLDPOSITION) 

(InitNATION) 

(InitGEOREGION) 

(InitWATERBODY) 

(InitLANDMASS) 

(Ini tWATERFEATURE ) 
(InitLANDFEATURE] ) 


{3} 

(InitLANDFEATURE 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

19-Jun-80 . ) 

[concept  LANDFEATURE 

(specializes  GEOFEATURE) 

(subcs  RIVER  MOUNTAIN  CITY  PENINSULA  ISTHMUS)]]) 


{4} 


(InitLANDMASS 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

19-Jun-80 . ) 

[concept  LANDMASS 

(specializes  GEOREGION  GEOFEATURE) 

(subcs  CONTINENT  ISLAND  CITY) 

[roleset  Water 

(diffs  Feature@GEOREGION) 
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(vr  WATERBODY) 1 
[roleset  NIL 

(diffs  Feature@GEOREGION) 
(vr  LANDFEATURE) ] ] ] ) 


{5} 


(InitNATION 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

19-Jun-80 . ) 

[concept  NATION 


(*  One  of  the  top  level  concepts  of  the  Geography  Model. 
Further  expansion  of  this  Concept  will  make  possible  specified 
depiction  of  national  attributes  such  as  Capital,  Seaport, 
Industr ialCenter ,  Militarylnstallation ,  etc.  The  Geography 
model  is  actually  a  small  Domain  World  in  and  of  itself.) 

[roleset  Name 
(vr  STRINGP) ] 

[roleset  Territory 
(vr  GEOREGION) ] ] ] ) 


{6} 

(InitWATERBODY 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

19-Jun-80.) 

[concept  WATERBODY 

(*  One  of  two  general  classes 
of  Geo  Regions  ...) 

(specializes  GEOREGION  GEOFEATURE) 

(subcs  OCEAN  SEA  LAKE) 

[roleset  Land 

(diffs  Feature@GEO REGION) 

(vr  LANDMASS) 

(*  The  Other  of  the  two  general 
classes  ...)] 

[roleset  NIL 

(diffs  Feature@GEOREGION) 

(vr  WATERFEATURE) ] 


(*  Note  that  a  Water  Body  is  allowed  to  contain  land  masses 
but  not  land  features.  Thus  a  city  on  an  island  in  the  sea  is 
not  necessarily  retrieved  as  a  Feature  of  the  sea.) 

11) 
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(7} 


(Ini tWATERFEATURE 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

19-Jun-80 . ) 

[concept  WATERFEATURE 

(specializes  GEOFEATURE) 

(subcs  REEF  SEA  STRAIGHT  CHANNEL  GULF) ] ] ) 


{8} 


(Ini tWORLDPOS I TION 
[LAMBDA  NIL 

[concept  WORLDPOS I T I ON 


(*  Edited  by  F.Zdybel  on 
10-Dec-80 . ) 


(*  A  position  expressed  in  world  coordinates 
(hopefully  soon  to  be  actually  a  spherical  system,  but 
currently  fudged  as  rectangular  radians.)) 


(specializes  POSITION) 

[roleset  NIL 

(mods  Continuum@POSITION) 

(vr  [iconcept  WORLDCARTES I AN  of  CARTES I ANSYSTEM] ) ] 
(itags  (ToTextify  TTXWorldPosition))]]) 

) 

(RPAQQ  AI PSGEOGRAPHYTOTEXT I FYFNS  (TTXWorldPosition)) 
(DEFINEQ 


{9} 


(TTXWorldPosition 

[LAMBDA  (positionDescr ) 


(*  Edited  by  F.Zdybel  on 
ll-Dec-80 . ) 


(*  Takes  spherical  coordinates  expressd  in  radians  and  outputs 
a  string  phrased  in  terms  of  Latitude  and  Longitude.) 


(PROG  ( (coordinateList  (CAR  {positionDescr ;Location} )) ) 

(RETURN  (APPLY  'CONCAT  <  !! (RptCoord  coordinateList: 1  T) 

If 


"  ! (RptCoord  coordinateList: 2) 


>]) 
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) 

(RPAQQ  AIPSGEOGRAPHYUTILITYFNS  (RptCoord) ) 
(DEFINEQ 


{10} 


(RptCoord 

[LAMBDA  (radianNum  latFlg) 

(CLISP:  FAST  FLOATING)  {*  Edited  by  F.Zdybel  on 

10-Dec-80 . ) 

(*  Function  turns  a  latitude  or  longitude  expressed  as 
floating  point  radians  into  a  list  of  the  form  degrees  minutes 
seconds  and  direction,  with  appropriate  descriptive  labels  for 
the  fields.) 


(PROG  (degrees  minutes  seconds  token) 

(degrees_radianNum*180 .0/3. 141593) 

(minutes_(degrees- (degrees_(FIX  degrees) ) ) *60.0) 

(seconds_(FIX  (minutes- (minutes_(FIX  minutes) )) *6000 . 0) /100 . 0) 
(token_(if  radianNum  gt  0.0 
then  (if  latFlg 

then  '  N. 
else  ’E.) 
elseif  latFlg 
then  ' S . 
else  ’W.)) 

(RETURN  < ( if  latFlg 

then  "Lat.  " 
else  "Lng.  ") 

(ABS  degrees) 

"d  " 

(ABS  minutes) 

If  I  If 

(ABS  seconds) 

"%"  "  token>j) 


(ADDTOVAR  CKLONEFILES  AIPSGEOGRAPHY) 
STOP 
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(FILECREATED  "13-NOV-80  03:55:19"  <NEWAIPS>AIPSMAP . . 57  40193 
changes  to:  MakeLegendApplication  MakeSimpleMapLegend 
previous  date:  "13-Nov-80  01:24:02"  <NEWAIPS>AIPSMAP. . 56) 


( PRETTYCOMPRINT  AI PSMAPCOMS ) 

(RPAQQ  A I P SMAPCOMS  ( (FNS  *  AIPSMAPINITFNS) 

(FNS  *  AIPSMAPDERIVATIONFNS) 

(FNS  *  AIPSMAPUTILITYFNS ) 

(ADDVARS  (CKLONEFILES  AIPSMAP) ) ) ) 

(RPAQQ  AIPSMAPINITFNS  (InitMAP  InitMAPGRID  InitMAPITEM  InitMAPLEGEND 

Ini tMAPWITHBACKGROUND  Ini tMapConcept s 
InitRECTANGULARMAP) ) 

(DEFINEQ 


{1} 


(InitMAP 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

29-Oct-80 . ) 

[concept  MAP 

(*  Map  is  a  major  Presentation 
form. ) 

(specializes  DISPLAY) 

(abstraction  [iconcept  MAPABSTR  of  DISPLAYABSTRACTION] ) 

[roleset  EntityList 
(vr  LISTP) 

(derivation  (FindMapEntitiesFromApplication  (Prerequisites 

Application) 

(Arguments 

{$$CONCEPT; Application}) ) ) 

(f illwhenmade) ] 


(*  The  EntityList  Role  give  a  place  to  determine  the  set  of 
objects  with  discrete  physical  locations  that  are  to  be 
included  in  the  Map.  This  set  is  used  to  drive  many  of  the 
other  derivation  procedures  on  Roles  of  MAP. 

For  example,  the  functions  used  to  derive  the  size  of  the 
Ground  for  the  Map  know  how  to  make  it  big  enough  to  include 
things  with  discrete  locations,  but  not  how  to  make  it  big 
enough  to  include  arbitrarily  shaped  areas 

(in  the  future,  hopefully,  this  can  be  fixed  so  that  regions 
can  also  be  included  in  the  EntityList.)  The  EntityList  Role 
also  provides  a  place  to  resolve  coersions  of  several  symbols 


Source  File:  AIPSMAP 


80 


Report  No.  4752 


Bolt  Beranek  and  Newman  Inc. 


into  s  single  symbol  for  purposes  of  uncluttering 
(e.g.:  three  ships  become  a  task  group.)) 


[roleset  NIL 

(mods  Name@DISPLAY) 
(modality  Obligatory) 
(f illwhenmade) ] 


(*  This  is  the  string  that  gets  made  into  a  Label  for  the  Map. 
The  name  should  be  based  on  the  largest  georegion  included  in 
the  Map  (if  this  can  be  determined)  or  on  the  Template  Role  of 
the  Map  if  it  is  simple  enough  to  be  summarized  in  a  short 
string.  At  least  we  will  see  something  here  of  the  form  "MAP  #" 
sequential  Map  number>.) 


(roleset  DomainCoordSys 
(vr  2DCOORDINATESYSTEM) 

[der ivation  (FindDomainCoordinateSystem 
(Prerequisites  EntityList) 

(Arguments  (CAR  { $$CONCEPT; EntityList } ) 

(KLFindVRsOfRole  (KLFindOneNamedGener icRole 

$$CONCEPT 
1 DomainCoordSys] 

(f illwhenmade) ] 


(*  This  is  the  domain  world  CoordinateSystem  that  is  assumed 
to  be  shared  by  all  of  the  items  being  depicted. 

It  is  not  the  Coordinate  System  of  the  depictions. 

Some  of  the  depicted  items  may  have  to  have  their  domain  world 
locations  re-expressed  in  terms  of  this  coordinate  system.) 


[roleset  MapItemTransform 
(modality  Obligatory) 

(vr  MAPPING) I 
[roleset  Label 

(diffs  RealizationiDISPLAY) 

(vr  TEXT) 

[derivation  (MakeMapLabel  (Prerequisites  Name  Ground) 

(Arguments  (CAR  $$CONCEPT;Name] ) 

(CAR  $$CONCEPT; Ground} ] 

(f illwhenmade) ] 

[roleset  Border 

(diffs  Realization@DlSPLAY) 

(vr  CLOSEDCURVE) ] 
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(*  For  some  types  of  projections,  the  border  of  the  Map  is  not 
necessarily  a  Rectangle,  or  even  a  Polygon.) 


[roleset  Legend 

(diffs  Realization@DISPLAY) 

(vr  MAPLEGEND) 

(derivation  (MakeSimpleMapLegend  (Prerequisites  Name  Item) 

(Arguments  (CAR  { $$CONCEPT:Name} ) 
f $$CONCEPT;Item}) ) ) 

(f illwhenmade) ] 


(*  This  may  be  one  of  the  places  where  one  desires  to  have  a 
part  of  a  Presentation  viewed  through  one  window  while  other 
parts  of  the  Presentation  are  viewed  through  another 
(i.e.  when  scrolling  over  a  Map  with  a  Window  one  may  wish 
that  the  Legend  is  always  in  view.)) 


(roleset  ReferenceGr id 

(diffs  Realization@DISPLAY) 

(vr  MAPGRID) ] 

(roleset  Item 

(modality  Obligatory) 

(number  (1  NIL)) 

(diffs  Realization@DISPLAY) 

(vr  MAPITEM) 

(derivation  (MakeMapItems  (Prerequisites  EntityList  Application 

Ground) 

(Arguments  { $$CONCEPT; Application] (CAR 
{ $$CONCEPT; EntityList} ) 

(CAR  { $$CONCEPT;Ground| ] 

(f illwhenmade) ] 

(*  Those  things  having  discrete 
locations  in  the  domain  world.) 

(itags  (MinlnterltemSpacing  10) 

(MinltemSpread  150) ) 


(*  These  factors  are  the  minimum  spacing 

(in  pixels)  between  any  two  items  on  a  Map,  and  the  minimum 
permissible  spread  (in  pixels)  in  any  dimension  among  all  the 
items,  respectively.) 


(tags  (DefaultPrototype  'RECTANGULARMAP) ) ] 

(iconcept  MAPABSTR 

(*  The  abstract  individual 
representing  the  class  of  all 
maps . ) 
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[irole  IntendedApplication 
(vr  [iconcept  MAPIAPL1])] 
[irole  IntendedApplication 
(vr  [iconcept  MAPIAPL2] ) ] ] 
[iconcept  MAPIAPLl 


(*  The  first  and  obvious  intended  use  of  a  Map  is  to  show  the 
location  of  something) 


(individuates  TEMPLATE) 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] 


[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Position  of  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] ] 


[iconcept  MAPIAPL2 


(*  A  second  intended  use  of  a  Map  is  to  show  the  boundaries  of 
regions . ) 


(individuates  TEMPLATE) 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  REGION] 

•AIPSDOMAINMETA))] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Boundary  of  REGION] 

' AIPSDOMAINMETA) ) ] ] ] ) 


f2} 


( InitMAPGRID 
[LAMBDA  NIL 

[concept  MAPGRID 

(specializes  DISPLAY) 

[roleset  ReferenceLine 

(diffs  Realization@DlSPLAY) 
(modality  Obligatory) 
(number  (4  NIL)) 

(vr  CURVE) ] 

[roleset  ReferenceLabel 

(diffs  Realization@DISPLAY) 
(modality  Obligatory) 
(number  (4  NIL)) 

(vr  TEXT)] 


(*  Edited  by  F.Zdybel  on 
19-Jun-80 . ) 
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(*  Attached  procedures  know  how 
to  realize  the  particular  types 
of  reference  grids.)])) 


{3} 


(InitMAPITEM 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

29-Oct-80 . ) 

[concept  MAPITEM 


(*  A  symbol  in  a  Map,  which  denotes  the  location  of  some 
locable  domain  world  entity.) 


(specializes  DISPLAY) 

(abstraction  [iconcept  MAPITEMABSTR  of  DISPLAYABSTRACTION] ) 
[roleset  NIL 


(mods  Application@DISPLAY) ] 

[roleset  Label 

(diffs  Realization@DISPLAY) 

(vr  TEXT) 

(derivation  (MakeMapItemLabel?  (Prerequisites  Application  Ground) 

(Arguments  { $$CONCEPT; Application} : 1 
{ $$CONCEPT;Ground} : 1) ) ) 


(f illwhenmade) ] ] 

[iconcept  MAPITEMABSTR 

[irole  IntendedApplication 

(vr  [iconcept  MAPITEMIAPL1] ) ] 

[irole  FixedComponent 

[vr  (Make  LINESEGMENT  EndPoint  ' { (-6  -6) 
(6  6]] 

[irole  FixedComponent 

[vr  (Make  LINESEGMENT  EndPoint  ’((-6  6) 


X  marks  the  spot 


[iconcept  MAPITEMIAPL1 


. .  .)  ] 


(*  For  the  moment  we  will  restrict  ourselves  to  displaying  the 
discrete  locations  and  names  of  physical  objects.) 


(individuates  TEMPLATE) 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Position  of  PHYSOBJECT] 
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’AIPSDOMAINMETA) ) ] 


[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Name  of  PHYSOBJECT] 

’AIPSDOMAINMETA) )  ]  ]  ]  ) 


{4} 


(InitMAPLEGEND 
[LAMBDA  NIL 


(*  Edited  by  F.Zdybel  on 
29-Oct-80 . ) 


[concept  MAPLEGEND 

(specializes  ARRANGEMENT) 

[roleset  Scalelkon 

(diffs  Item® ARRANGEMENT) 

(vr  MAPSCALE) 

(derivation  (MakeLegendScalelkonFromApplication  (Prerequisites 

Application) 

(Arguments 

{ $$CONCEPT; Application} ))) ] 


(*  This  is  the  funny  little  bar  with  the  colored  stripes  and 
the  numbers  under  it.  Note  that  this  part  of  the  Legend  is 
sensitive  to  the  current  scale  of  the  map,  which  may  change 
due  to  Window-driven  scaling.) 


[roleset  Table 

(modality  Obligatory) 

(diffs  I tem@ ARRANGEMENT) 

(vr  LEGENDTABLE) 

(derivation  (MakeLegendTableFromApplication  (Prerequisites 

Application) 

(Arguments 

{$$CONCEPT; Application}) ) ) 

(f illwhenmade) J 


(*  This  is  the  little 
correspondence  Table  between 
map  symbols  and  explanatory 
text . ) 


[roleset  Label 

(modality  Obligatory) 

(diffs  I tem@ ARRANGEMENT) 

(vr  TEXT) 

(itags  (Def aultFiller  (Make  TEXT  String  "LEGEND")))] 

(*  Probably  says  something 
brilliant  like  "Legend".)]]) 


{5} 
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(Ini tMAPWITHBACKGROUND 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

17-Jul-80.) 

[concept  MAPWITHBACKGROOND 


(*  Any  kind  of  map  that  already  has  one  or  more  display  forms 
on  the  FixedComponent  Role  of  its  abstraction 
(for  geographic  regions  and  reference  grid)  and  hence  has  a 
fixed  DomainCoordSys  and  very  particular  value  restrictions 
for  the  MapItemTransform  and  Ground  Roles. 

For  example,  the  value  restriction  of  the  MapItemTransform 
Role  will  be  a  Generic  2DLinearTransform  whose  Origin  and 
UnitVector  roles  are  filled  with  particular  LISTP 
(even  though  the  From  and  To  Roles  remain  to  be  filled  at  the 
various  individuals  of  that  Generic  Concept.)) 


(specializes  MAP) 


(*  There  is  no  point  in  having  an  abstraction  for  this 
particular  type  of  Map,  because  we  will  generally  always  be 
dealing  with  its  generic  descendants. ) 


I 


[roleset  NIL 

(mods  Ground@MAP) 

(derivation  (MakeGroundForMapWithBackground 

(Arguments  (KLFindVRsOfRole  (KLFindOneNamedGener icRole 

$$CONCEPT  ’Ground) ) : 1) ) ) 

[roleset  NIL 

(mods  MapItemTransform@MAP) 

(derivation  (MakeMapTransformForMapWithBackground 
(Prerequisites  Ground) 

(Arguments  (KLFindVRsOfRole  (KLFindOneNamedGener icRole 

$  $CONCEPT 

’MapItemTransform) ) :1 
| $$CONCEPT? DomainCoordSys} : 1 
{ $$CONCEPT; Ground} : 1) ) ) ] 

[roleset  NIL 

(mods  ReferenceGr id@MAP) 

(number  (0  0))]]]) 


{6} 

(InitMapConcepts 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 
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17-Jul-80 . ) 

(*  Initializes  that  portion  of  the  AIPS  Presentation  Model 
having  to  do  with  Maps.) 


(InitMAP) 

(Ini tRECTANGULARMAP ) 
(InitMAPITEM) 
(InitMAPLEGEND) 
(InitMAPGRID) 
(InitMAPWITHBACKGROOND] ) 


{7} 


(Ini tRECTANGULARMAP 
[LAMBDA  NIL 

[concept  RECTANGULARMAP 


(*  Edited  by  F.Zdybel  on 
29-Oct-80 . ) 


(*  This  is  a  flat  rectangular  map,  as  opposed  to  some  kind  of 
polar  or  conic  projection  with  a  funny  shaped  border  and 
non-constant  values  for  the  screen  distance  equivalent  to  a 
given  domain  world  distance.) 


(specializes  MAP) 

[roleset  NIL 

(mods  DomainCoordSys@MAP) 
(vr  CARTES I ANSYSTEM) ] 


(*  For  the  moment  we  will  limit  ourselves  here  to  cartesian 
domain  coordinate  systems) 


[roleset  NIL 

(mods  MapItemTransform§MAP) 

(vr  2DLINEARTRANSF0RM) 

[derivation  (MakeLinearMapTransformFromGroundAndEntities 

(Prerequisites  DomainCoordSys  Ground  EntityList) 
(Arguments  (CAR  $$CONCEPT; EntityList} ) 

(CAR  $$CONCEPT;Ground| ) 

(CAR  { $$CONCEPT; DomainCoordSys } ) ) ) 
(MakeLinearMapTransformAndGroundFromEntities 
(Prerequisites  DomainCoordSys  EntityList) 


(Arguments 


[roleset  ScaleUnit 


(CAR  $$CONCEPT;EntityList} ) 

(CAR  $$CONCEPTj DomainCoordSys} ] ] 
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(vr  DISTANCEUNIT) 

(itags  (DefaultFiller  'MILE))] 


(*  The  filler  of  this  role  should  be  selected  according  to  the 
user's  convenience.  It  is  used  in  constructing  the  reference 
grid  and  the  scale  ikon  of  the  legend. 

For  the  moment,  the  filler  of  this  role  is  simply  defaulted  to 
NM  at  NTDSMAP.) 


[roleset  ScaleDistance 
(vr  NUMBERP) 

[derivation  (FindScaleUnitDistance  (Prerequisites  DomainCoordSys 

Ground 

MapItemTransform) 
(Arguments  (CAR 
{ $$CONCEPT; MapItemTransform} ) 
(CAR 

{ $$CONCEPT ; DomainCoordSys } ) 
(CAR 

{ $$CONCEPT;Ground;Continuum} ] ] 


(*  This  is  the  distance  equivalent  to  the  filler  of  the  Scale 
Unit  Role  in  the  Coordinate  System  of  the  Presentation.) 


[roleset  NIL 

(mods  Border@MAP) 

(vr  RECTANGLE) 

[derivation  (MakeRectangularMapBorder  (Prerequisites  Ground) 

(Arguments  (CAR 

1 $$CONCEPT;Ground;Boundary;LowerLeft} ) 

(CAR 

{ $$CONCEPT;Ground;Boundary;UpperRight} ) 

(CAR 

{ $$CONCEPT; Ground} ] 

(f illwhenmade) ] 

[roleset  NIL 

(mods  Ground@MAP) 

(derivation  (Prerequisites  MapItemTransform))] 

(itags  (MapMarginFactor  .07)) 


(*  This  factor  is  used  to  derive  the  amount  by  which  the 
ground  should  be  larger  than  the  maximum  spread  in  item  X  or  Y 
coordinates . ) 

11) 

) 
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(RPAQQ  AIPSMAPDERIVATIONFNS 


(DEPINEQ 


(FindDoma inCoord inateSy stem 

FindMapEntitiesFromAppl ication 
FindScaleUnitDi stance 
MakeGroundForMapWithBackground 
MakeLegendAppl ication 
MakeLinearMapTransformAndGroundFromEntities 
MakeLinearMapTransformFromGroundAndEntities 

MakeMapItemLabel? 
MakeMapI terns 
MakeMapLabel 

MakeMapTransformForMapWithBackground 
MakeRectangularMapBorder 
MakeSimpleMapLegend) ) 


{8} 


(FindDomainCoordinateSystem 

[ D LAMBDA  ( (domainEntityList  (LST  OF  IndividualConcept) ) 

(coordSysRestr ictions  (LST  OF  Gener icConcept)  (SATISFIES 

( 

HomogenousConceptListP  coordSysRestr  ictions  ‘‘COORD  IN  ATESYSTEM) ) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  (VALUE :1  df 

coordSysRestr ictions: 1) ) )  ) 
(*  Edited  by  F.Zdybel  on 
13-Nov-BO . ) 


(*  Looks  through  the  input  entity  list  and  finds  the 
coordinate  system  that  is  a  descendant  of  all  of 
coordSysRestr ictions  and  is  used  by  the  majority  of  the 
entries.  If  no  coordinate  system  can  be  found  associated  with 
any  of  the  entities  that  satisfies  all  of 
coordSysRestr ictions,  something  more  complicated  should  be 
done  to  find  a  suitable  domain  coordinate  system  and  establish 
the  necessary  mappings.  For  the  moment,  however,  we  will 
content  ourselves  with  calling  ERROR.) 


(for  alternativeEntry 

in  (for  domainEntity  in  domainEntityList  bind  domainCoordSys 

domainCoordSysEntry 
coord inateSystemAl ter natives 


do 


(*  Make  an  Alist  to  accumulate  the  different  coordinate 
systems  used  by  the  various  domain  entities,  where  the  value 
of  each  entry  is  the  list  of  domain  entities  sharing  the 
coordinate  system.) 
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(if  domainCoordSysSntry_ (ASSOC  domainCoordSys_ 

{ domainEntity;Position;Continuum} : 1 
coord inateSystemAl ter natives) 
then  <  ! !  domainCoordSysEntry  domainEntity> 
else  coordinateSyste'iAlternatives_ 

<  !!  coordinateSystemAlternatives 
<domainCoordSys  domainEntity>>) 
finally  (RETURN  coordinateSystemAlternatives) ) 
bind  currentCandidate  (currentCandidatePopular ity__0) 
alternative  popular ityOf Alternative 
when  popular ityOf Alternative  (FLENGTH  alternativeEntry)  gt 
currentCandidatePopularTty 

and  (for  restriction  in  coordSysRestr ictions 
first  alternative_alternativeEntry: 1 
always  alternative  df  restriction) 


(*  Find  the  most  used  domain  coordinate  system  that  satisifes 
all  of  the  constraints.) 


(currentCandidate_alternative) 

(currentCandidatePopular ity_popular ityOf Alter native) 
finally  (if  currentCandidate 

then  (RETURN  <currentCandidate>) 
else  (ERROR 

"unable  to  establish  acceptable  domain  coordinate  system: 

$$CONCEPT  DERI VENOBRE AKFLG ) ) ) ] ) 


{9} 


(FindMapEntitiesFromApplication 

[DLAMBDA  ( (mapApplicationList  (LST  OF  IndividualConcept)  (SATISFIES 

( 

HomogenousConceptListP  mapApplicationList  "‘ITEMPLATE) ) ) 

(RETURNS  (LST  OF  (LST  OF  IndividualConcept) ) ) ) 

(*  Edited  by  F.Zdybel  on 
13-Nov-80.) 

(*  Examines  mapApplicationList  (the  Application  Role  fillers 
of  Some  Map)  and  determines  all  of  the  discretely  locatable 
physical  objects  that  are  described  by  these  templates. 

This  list  is  helpful  for  a  number  of  derivation  functions 
attached  to  Roles  of  MAP.) 


(for  template  in  mapApplicationList 

join  (for  domainObjectMetaDescr iption  in  { template;ConceptGroupr 
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bind  domainObjectDescr iption 

when  domainObjectDescr iption_(KLGetMetaDescr ibedEntity 
domainOb jectMetaDescr iption 
(KLGetNamedContext  * AIPSDOMAINMETA) ) 
and  {domainObjectDescr iption;Position;Constraintl : 1 
df  ""LISTP 

collect  domainObjectDescr iption) 
finally  (RETURN  < (INTERSECTION  $$VAL  $$VAL) 

>))]) 


{10} 


(FindScaleUnitDi stance 

[DLAMBDA  ( (scaleUnit  IndividualConcept  (SATISFIES  (scaleUnit  df 

v  D I STANCEUN I T ) ) ) 

(domainCoordSys  IndividualConcept  (SATISFIES 

(domainCoordSys  df 

'COORDINATESYSTEM) ) ) 

(vsCoordSys  IndividualConcept  (SATISFIES  (vsCoordSys  df 

'CARTESIANSYSTEM) ) ) 


(RETURNS  (LST  OF  FLO ATP) ) ) 


(*  Edited  by  F.Zdybel  on 
13-Nov-80.) 


(*  Determines  the  distance  represented  by  scaleUnit  in 
domainCoordSys  in  terms  of  an  increment  along  an  axis  of 
vsCoordSys.  Otherwise,  the  result  is  returned  as  FLOATP. 
Apparently  we  will  require  to  associate  with  each  domain 
coordinate  system  an  equivalence  relationship  between  distance 
units  (e.g.:  one  NM  in  the  Lat/Long  system  is  one  minute  of 
arc) ) 


(ERROR  "derivation  function  not  implemented  yet. 

")1 ) 


{11} 

(MakeGroundForMapWi thBackg  round 

(DLAMBDA  ( (groundVR  Gener icConcept  (SATISFIES  (groundVR  df  'VIEWSURFACE))) 
(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  (VALUE: 1  df 

'VIEWSURFACE) ) ) ) 
(*  Edited  by  F.Zdybel  on 
13-Nov-80 . ) 

(*  Creates  an  individual  of  groundVR,  a  Generic  ViewSurface 
with  Boundary  Role  already  restricted  to  a  particular 
ClosedCurve.  Since  this  Value  Description  will  already  be 
inherited  by  the  new  individual,  there  should  be  no  need  to 
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copy  it  onto  an  IRole.  Assumes  that  the  function  that  derives 
the  MapIteraTransform  will  fill  in  the  Exit  role  on  the 
Continuum  of  the  Ground.) 


< (APPLY*  ’Make  (KLGetConceptName  groundVR) 

'Continuum 

(APPLY*  'Make  (KLGetConceptName  {groundVR;Continuum} : 1) ) ) 

>1) 


{12} 


(MakeLegendApplication 

[DLAMBDA  ( ( itemRestr ictionList  (LST  OP  Gener icConcept)  (SATISFIES 

( 

HomogenousConceptListP  itemRestr  ictionList  ‘‘MAPITEM) ) ) 

(mapItemList  (LST  OF  IndividualConcept)  (SATISFIES 

( 


HomogenousConceptListP  mapItemList  ‘‘MAPITEM))) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  VALUE: 1  df 

“I TEMPLATE) ) ) 


(*  Edited  by  F.Zdybel  on 
13-Nov-80 . ) 


(*  Looks  through  the  items  in  the  Map  and  devises  an 
application  role  filler  for  the  Legend  of  the  Map.) 


< (Make  ITEMPLATE  ConceptGroup 

(for  itemType  in  (for  itemRestr iction  in  itemRestr ictionList 

join  <itemRestriction 

J  (KLFindSubConcepts  itemRestr iction) 

> 

finally  (RETURN  (INTERSECTION  $$VAL  $$VAL) ) ) 
when  (for  item  in  mapItemList  thereis  (KLZIsConceptDescendantP 

item  itemType) ) 

join  (for  template  in  { (KLGetAbstraction  itemType) 

; IntendedAppl ication } 

collect  (SupplyConceptMetalndicator  template 

' AIPSINTERNALMETA) ) ) 

RoleGroup 

(SupplyRoleMetalndicator  ConceptGroup@TEMPLATE  ’AIPSINTERNALMETA) 
) 

>]) 


{13} 


(MakeLinearMapTransformAndGroundFromEntities 
[DLAMBDA  ( (domainEntityList  (LST  OF  IndividualConcept)) 
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(domainCoordinateSystem  IndividualConcept  (SATISFIES 

domainCoordinateSystem  df 


(RETURNS  (LST  OF  IndividualConcept) 
(CLISP:  MIXED  (RECORD  (XCoord  YCoord) ) ) 


"  CARTES I AN S YS TEM ) ) 


(SATISFIES  VALUE: 1  df 

v  2DLINEARTRANSF0RM)  ) ) 


(*  Edited  by  F.Zdybel  on 
1 3-No v- 80.) 


(*  Finds  the  minimum  separation  between  map  entities  and 
selects  a  transform  such  that  this  minimum  distance  just  maps 
onto  some  minimum  desirable  visual  separation  in  terms  of 
pixels.  Thus,  since  window  scaling  is  always  greater  than  1, 
this  visual  distance  may  become  larger  due  to  scaling 
transform  associated  with  a  Window  onto  the  VS,  but  it  will 
never  become  smaller.  As  a  side  effect,  derives  the  Ground 
role  of  $$CONCEPT ,  and  establishes  the  new  transform  as  the 
Exit  and  Entry  Role  fillers  of  the  domainCoordinateSystem  and 
the  Continuum  of  the  new  ground,  respectively.) 


(for  tail  on  (for  entity  in  domainEntityList  when  Position@entity 
collect  (CAR  ({ (EstablishDomainEntityPositionlnCS 

entity  domainCoordinateSystem) 

; Location} ) ) ) 

bind  location  locationXCoord  locationYCoord  minX_MAX .FLOAT 
minY_MAX. FLOAT 
maxX_MIN. FLOAT 
max Y_MIN. FLOAT 
minXSpacing_MAX .FLOAT 
m i nYSpac i ng_MAX . FLOAT 
minSimpleDistance_MAX. FLOAT 

minRealDistance  scaleFactor  mapGround  itemsWidth  itemsHeight 
groundWidth  groundHeight  (minltemSpread 

_ (CAR  (KLFindIData  $$CONCEPT  '(MinltemSpread] 

[mapMarginFactor  _(CAR  (KLFindIData  $$CONCEPT  ' (MapMarginFactor ] 
xMargin  yMargin  xOrigin  yOrigin  transform 
do  (location_tail : 1) 

(locationXCoord_locat ion: XCoord) 

( locationYCoord_locat ion : YCoord) 

(minX_(MIN  locationXCoord  minX) ) 

(maxX_(MAX  locationXCoord  maxX) ) 

(minY_(MIN  locationYCoord  minY) ) 

(maxY_(MAX  locationYCoord  maxY) ) 

(for  otherLocation  in  tail::l  bind  currentXSpacing 

currentYSpacing 
cur rentSimpleDi stance 

do  (currentXSpacing_ (ABS  locationXCoord-otherLocation:XCoord) ) 
(currentYSpacing_(ABS  locationYCoord-otherLocation:YCoord) ) 
(currentSimpleDistance_cur rentXSpacing+cur rentYSpacing) 

(if  currentSimpleDistance  It  minSimpleDistance 
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then  minSimpleDistance_cur rents impleDi stance 
minXSpacing_cur rentXSpacing 
minYSpacing_cur rentYSpacing) ) 

finally  (minRealDistance_(SQRT  minXSpacing~2+minYSpacing'2) ) 

( scaleFactor_ (MAX  (CAR  (KLPindIData  $$CONCEPT  * ( 

MinlnterltemSpacing) ) ) 
/minRealDistance  minltemSpread/ (maxY-minY) 
minltemSpread/ (maxX-minX) ) ) 

( itemsWidth_ (maxX-minX) *scaleFactor ) 

( itemsHeight_(maxY-minY) *scaleFactor ) 
(groundWidth_itemsWidth+ (2* ( 

xMargin_iterasWidth*mapMarginFactor) ) ) 
(groundHeight_itemsHeight+ (2* ( 

yMargin_itemsHeight*mapMarginFactor) ) ) 

(mapGround_(Make  VIEWSURFACE  Continuum 

(Make  CARTES I ANSYSTEM) 

Boundary 

(Make  RECTANGLE  UpperRight 

<groundWidth  groundHeight>  LowerLeft 

<0.0  0.0>) ) ) 

(xOr igin_xMargin-scaleFactor*minX) 

(yOr igin_yMargin-scaleFactor*minY) 

(transform_(Make  2DLINEARTRANSFORM  From 

domainCoordinateSystem  To 
(CAR  (mapGround ;Continuum} ) 

Origin  <xOrigin  yOrigin>  UnitVector 
<scaleFactor  scaleFactor>) ) 

[irole  Ground  of  (atomval  $$C0NCEPT) 

(vr  (atomval  mapGround) ) j 
[irole  Exit  of  (atomval  domainCoordinateSystem) 

(vr  (atomval  transform) ) ] 

[irole  Entry  of  (CAR  {mapGround;Continuum} ) 

(vr  (atomval  transform) ) ] 

(RETURN  <transform>) ) ] ) 


{14} 


(MakeLinearMapTransformFromGroundAndEntities 

[DLAMBDA  ( (domainEntityList  (LST  OF  IndividualConcept)  (SATISFIES 

domainEntityList: : 1) ) 

(mapGround  IndividualConcept  (SATISFIES  mapGround  df 

'VIEWSURFACE) ) 

(domainCoordSys  IndividualConcept  (SATISFIES  domainCoordSys  df 

'CARTES I ANSYSTEM) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  VALUE: 1  df 

' 2DLINEARTRANSF0RM) ) ) 

(CLISP:  MIXED  (RECORD  (XCoord  YCoord))) 

(*  Edited  by  F.Zdybel  on 
13-Nov-80.) 
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(*  Determines  the  appropriate  transform  to  be  used  to  map 
items  from  domainCoordinateSystem  into  the  Map,  given  that  the 
ViewSurface  of  the  map  has  already  been  determined. 

Does  this  by  looking  for  the  maximum  spread  in  x  or  y  domain 
coordinates  among  the  items  and  mapping  this  onto  either  the 
height  of  width  (depending  upon  whether  the  max  spread  was 
along  y  or  x)  of  the  Ground  of  the  Map,  minus  some  reasonable 
amount,  so  that  no  item  is  exactly  on  the  Boundary  of  the 
ViewSurface.  As  a  side  effect,  the  Continuum  of  the 
domainCoordinateSystem  gets  its  Exit  Role  filled  with  the  new 
created  transform,  ditto  the  Entry  Role  of  the  Continuum  of 
the  Ground.) 


(for  entity  in  domainEntityList 

bind  temp  currentEntityLocation  minX_MAX .FLOAT 
m i n Y_MAX . FLOAT 
maxX_MIN. FLOAT 
maxY_MIN. FLOAT 

11  ur  groundHeight  groundWidth 

[mapMarginFactor  _(CAR  (KLFindIData  $$CONCEPT  ' (MapMarginFactor ] 
ad justedGroundHeight  ad justedGroundWidth  xMargin  yMargin 
scaleFactor  xOrigin  yOrigin  transform 
when  Position@entity 

do  (currentEntityLocation_(CAR  ({ (EstablishDomainEntityPositionlnCS 

entity  domainCoordinateSystem) 

; Location} ) ) ) 

(minX_ (MIN  temp_cur rentEnt i tyLocat ion : XCoord 
minx) ) 

(maxX_(MAX  temp  maxX) ) 

(minY_ (MIN  temp_cur  rentEnt i tyLocat ion : YCoord 
minY) ) 

(maxY  (MAX  temp  maxY) ) 
finally  TgroundWidth_( fetch  XCoord 

of  (ur_(CAR  {mapGround;3oundary;UpperRight} ) ) 

-(fetch  XCoord  of  (11_(CAR  {mapGround ;Boundary ; LowerLef t} ] 
(groundHeight_ur : YCoord- 11: YCoord) 

(ad justedGroun<-.  7idth_groundWidth-  (2*  ( 

xMargin_mapMarginFactor*groundWidth) ) ) 
(adjustedGroundHeight  groundHeight- (2* ( 

yMargin_mapMargTnFactor*groundHeight) ) ) 
(scaleFactor_(MIN  adjustedGroundHeight/ (maxY-minY) 

ad justedGroundWidth/ (maxX-minX) ) ) 

(xOr igin_ll :XCoord+xMa r gin- scaleFactor *minX) 

(yOr igin_ll : YCoord+yMarg in-sc aleFac tor *minY) 

(transform_(Make  2DLINEARTRANSF0RM  From  domainCoordSys  To 

(CAR  {mapviround;Continuum} ) 

Origin  <xOrigin  yOrigin>  UnitVector 
ocaleFactor  scaleFactor>) ) 

[irole  Exit  of  (atomval  domainCoordSys) 
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(vr  (atomval  transform) ) ] 

[irole  Entry  of  (CAR  {mapGround;Continuum} ) 
(vr  (atomval  transform) ) ] 

(RETURN  transform))]) 


{15} 

(MakeMapI temLabel? 

[ DLAMBDA  ( (application  IndividualConcept  (SATISFIES  application  df 

'I TEMPLATE)  ) 

(mapGround  IndividualConcept  (SATISFIES  mapGround  df 

'VIEWSURFACE )  ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  VALUE: 1  df 

'TEXT) ) ) 

(*  Edited  by  F.Zdybel  on 
13-Nov-80.) 

(*  Looks  for  a  Name  Role  on  the  first  object  meta-indicated  by 
the  ConceptGroup  Role  filler  of  application. 

Creates  an  instance  of  TEXT  based  on  what  it  finds.) 


(PROG  ((context  (KLGetNamedContext  • AIPSDOMAINMETA) ) 

(targetRole  N ame@PH YSOB JECT ) 

(domainEntity  (FindTemplateObiects  application) : 1) ) 

(if  (for  roleMetalndicator  in  {application;RoleGroup| 

thereis  (KLIsRoleDescendantP  (KLGetMetaDescr ibedEntity 

roleMetalndicator  context) 
targetRole) ) 

and  (KLFindRoleValues  domainEntity  targetRole) 
then  (RETURN  < (Make  TEXT  String  {domainEntity;Name} : 1  Ground 

mapGround) 

>) 

else  (StopFill) ) ) ] ) 


{16} 

(MakeMapI terns 

[DLAMBDA  ( (mapApplication  (LST  OF  IndividualConcept)  (SATISFIES 

( 

HomogenousConceptListP  mapApplication  ' I TEMPLATE) ) ) 

(domainEntityList  (LST  OF  IndividualConcept) ) 

(mapGround  IndividualConcept  (SATISFIES  (KLIsConceptDescendantP 

mapGround 
'VIEWSURFACE) ) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES 

( Homogeno  u  sConcept L i s  tP 
VALUE  'MAPITEM) ) ) ) 

(*  Edited  by  F.Zdybel  on 
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6-Aug-80 . ) 

(*  Goes  through  the  entity  list  of  the  Map  and  determines  what 
kind  of  Display  to  individuate  for  each,  based  on  the  value 
restrictions  of  the  Item  roles  (For  each  item  in  the  entity 
list  determines  the  Application  role  filler  implied  by  the 
Application  role  of  the  Map,  then  tries  to  find  some 
descendant  of  one  of  the  VR's  on  mapItemRestrictions  that  can 
fulfill  the  template  for  the  item,  or  at  least  fulfill  it  to 
the  greatest  extent  possible.)) 


(if  (for  domainEntity  in  domainEntityList  bind  mapItemGener ic 

mapItemGener icIA 
mapItemGener icIASubjects 

first  (mapItemGener ic_(KLFindVRsOfRole  $$R0LE):1) 

(mapItemGener icIA_  { (KLGetAbstraction  mapItemGener ic) 

; IntendedApplication} ) 

(mapItemGener icl ASubjects_ (FindApplicationObjects 

mapItemGener icIA) ) 

when  (for  subject  in  mapItemGener icIASubjects 
thereis  domainEntity  df  subject) 
and  (SupplyConceptMetalndicator  domainEntity 

' AIPSDOMAINMETA) 

"memb  { $$CONCEPT; Item; Application;ConceptGroup} 
collect  (APPLY*  'Make  (KLGetConceptName  mapItemGener ic) 
'Application 

(MakeMapItemApplication  domainEntity 

mapItemGener icIA 
mapApplication) 

'Ground  mapGround) ) 

else  (StopFill) ) ] ) 


{17} 


(MakeMapLabel 

[ D LAMBDA  ( (mapName  STRINGP) 

(mapGround  IndividualConcept  (SATISFIES  (mapGround  df 

'VIEWSURFACE) ) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  (VALUE: 1  df 

'TEXT) ) ) ) 

(*  Edited  by  F.Zdybel  on 
13-Nov-80.) 

(*  Creates  an  individual  of  TEXT.  At  some  other  subCs  of  MAP, 
the  map  label  might  be  a  shaded  region  with  the  instance  of 
TEXT  superimposed  on  it,  but  for  the  moment  we  will  exercise 
the  ToLocate  procedures  a  bit  by  putting  the  label  within  the 
Map  proper.) 
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< (Make  TEXT  String  mapName  Ground  mapGround) 
>1) 


(18} 

(MakeMapTr ansf or mForMapWithBackg round 

[DLAMBDA  ( ( transformVR  Gener icConcept  (SATISFIES  (transformVR  df  'MAPPING) 

)  ) 

(domainCoordSys  IndividualConcept  (SATISFIES 

(domainCoordSys  df 

'COORDINATESYSTEM) ) ) 

(mapGround  IndividualConcept  (SATISFIES  (mapGround  df 

'VIEWSURFACE) ) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  (VALUE: 1  df 

MAPPING) ) ) ) 

(*  Edited  by  F.Zdybel  on 
13-Nov-80.) 

(*  Creates  an  individual  of  transformVR,  a  Generic  MAPPING 
with  Origin  and  UnitVector  Roles  already  restricted  to 
particular  LISTP.  Since  these  Value  Descriptions  will  already 
be  inherited  by  the  new  individual,  there  should  be  no  need  to 
copy  them  onto  IRoles.  As  a  side  effect,  fills  the  Exit  Role 
of  the  DomainCoordSys  and  the  Entry  Role  of  the  Continuum  of 
the  Ground  with  the  new  Transform.) 


(PROG  (mapTransform  groundCoordSys) 

(mapTransform_ (APPLY*  'Make  (KLGetConceptName  transformVR) 

'From  domainCoordSys  'To  groundCoordSys 
{mapGround;Continuum} : 1) ) 

[irole  Exit  of  (atomval  domainCoordSys) 

(vr  (atomval  mapTransform))! 

[irole  Entry  of  (atomval  groundCoordSys) 

(vr  (atomval  mapTransform))] 

(RETURN  <mapTransform>) ) ] ) 


(19} 


(MakeRectangularMapBorder 

'DLAMBDA  ( (mapGroundLowerLeft  (LST  OF  NUMBERP) ) 

(raapGroundUpperRight  (LST  OF  NUMBERP) ) 

(mapGround  IndividualConcept  (SATISFIES  mapGround  df 

'VIEWSURFACE) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  VALUE :1  df 

'RECTANGLE) ) ) 
(*  Edited  by  F.Zdybel  on 
13-Nov-80. ) 


:  37MAP 
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(*  Useful  in  drawing  the  border  around  a  flat  rectangular  Map. 
Does  this  by  limning  the  edge  of  the  ViewSurface  that  the  map 
is  onto  with  an  instance  of  RECTANGLE) 


< (Make  RECTANGLE  LowerLeft  mapGroundLowerLef t  UpperRight 
mapGroundUpperRight  Ground  mapGround) 

>]) 


{20} 

(Makes impleMapLegend 

[DLAMBDA  ( (mapName  STRINGP) 

(mapItemList  (LST  OF  IndividualConcept) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  (VALUE: 1  df 

'MAPLEGEND) ) ) ) 
(*  Edited  by  F.Zdybel  on 
13-Nov-80.) 

(*  Makes  the  simplest  possible  kind  of  Legend 
(i.e.:  merely  a  correspondence  table  between  the  generic 
display  forms  and  the  classes  of  domain  world  entities  they 
denote.)  Does  this  by  driving  the  created  MapLegend  with  an 
application  that  designates  the  ConceptGroup  roles  of  each  of 
all  of  the  IntendedApplications  found  for  each  of  the  Generic 
Items  used  by  the  Map.) 


< (Make  MAPLEGEND  Label  (Make  TEXT  String  (CONCAT  "LEGEND  for  "  mapName)) 
Application 

(MakeLegendApplication  (KLFindVRsOfRole  ( 

KLFindOneNamedGener icRole  $$CONCEPT  ' Item)):l  mapItemList)) 

>1) 

) 

(RPAQQ  AIPSMAPUTILITYFNS  (FindMapItemPrototypes  FindMappingBetweenCSs 

Establi shDoma inEn t i tyPos i t ionlnCS 
MakeMapItemApplication 
MapPositionDescr iption) ) 

(DEFINEQ 


{21} 

(FindMapItemPrototypes 

(DLAMBDA  ({map  IndividualConcept  (SATISFIES  (map  df  'MAP)))) 

(*  Edited  by  F.Zdybel  on 
17-Jul-80.) 
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(*  Finds  all  the  possible  map  item  prototypes  which  apply 
under  the  value  restrictions  of  mapPrototype' s  Item  Role.) 


(for  topLevelMapItemRestr iction  in  (KLFindVRsOfRole  ( 
KLFindOneNamedGener icRole  map  'Item))  join 

<topLevelMapItemRestr iction 
! (KLFindSubConcepts 

topLevelMapItemRestr iction) 

>)]) 


{22} 

(FindMappingBetweenCSs 

[DLAMBDA  ( (coordSysl  IndividualConcept  (SATISFIES  (coordSysl  df 

'COORDINATESYSTEM) ) ) 

(coordSys2  IndividualConcept  (SATISFIES  (coordSys2  df 

'COORDINATESYSTEM) ) ) 

(RETURNS  IndividualConcept  (SATISFIES  (VALUE  df  'MAPPING) ) ) ) 

(*  Edited  by  F.Zdybel  on 
2-Jul-80.) 

(*  Tries  to  find  an  existing  transformation  out  of  coordSysl 
into  coordSys2.  Should  be  able  to  chain  together  and  create 
subsuming  transforms  in  doing  this,  but  for  the  moment  simply 
looks  for  an  already  existing  transform.) 


(for  mapping  in  {coordSysl;Exit}  thereis  mapping 

memb  {coordSys2;Entry}) ] ) 


{ 23) 


(EstablishDomainEnti tyPos it ionlnCS 
(DLAMBDA  ( (domainEntity  IndividualConcept) 

(coordinateSystem  IndividualConcept  (SATISFIES 

(coordinateSystem  df 

'COORDINATESYSTEM) ) ) 

(RETURNS  IndividualConcept  (SATISFIES  (VALUE  df  'POSITION) ) ) ) 

(*  Edited  by  F.Zdybel  on 
9-Jul-80.) 

(*  Insures  that  one  of  the  Values  of  domainEntity • s  Position 
Role  is  a  position  in  the  given  coordinateSystem. 

If  necessary,  establishes  a  new  Position  IRole  for 
domainEntity  as  a  side-effect.) 


(OR  (for  positionDescr iption  in  {domainEntity;Position} 
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thereis  {positionDescription;Continuum} : 1  =  coordinateSystem) 
(for  positionDescr iption  in  {domainEntityjPosition} 
bind  transform  mappedPosition  thereis  transform  ( 

FindMappTngBe tweenCSs 

{positionDescr iption;Continuum} : 1 
coordinateSystem) 

finally  mappedPosition_(MapPositionDescr iption 

positionDescr iption 
transform) 

{irole  Position  of  (atomval  domainEntity) 

(vr  (atomval  mappedPosition))] 

(RETURN  mappedPosition)))]) 


{24} 


(MakeMapI temAppl icat ion 

[DLAMBDA  ( (domainEntity  IndividualConcept) 

(gener icItemlntendedApplication  (LST  OF  IndividualConcept) 
(SATISFIES  (HomogenousConceptListP 

gener icItemlntendedApplication  'TEMPLATE) ) ) 
(mapApplication  (LST  OF  IndividualConcept) 

(SATISFIES  HomogenousConceptListP  mapApplication 
'I TEMP LATE) ) ) 

(RETURNS  IndividualConcept  (SATISFIES  (KLIsConceptDescendantP 

VALUE  'ITEMPLATE) ) ) ) 
(*  Edited  by  F.Zdybel  on 
5- Aug-80. ) 

(*  Constructs  a  single  ITemplate  which  describes  domainEntity 
and  includes  all  of  roles  mentioned  in  mapApplication  in 
connection  with  domainEntity  that  are  covered  by  roles 
mentioned  in  gener icItemTemplateList  in  connection  with 
superCs  of  domainEntity.) 


(Make  ITEMPLATE  ConceptGroup  (SupplyConceptMetalndicator  domainEntity 

’AIPSDOMAINMETA) 

RoleGroup 

(for  role  in  (FindApplicableApplicationSlots  domainEntity 

mapApplication) 

bind  (itemApplicationSlots  _ (FindApplicableApplicationSlots 

domainEntity 

gener icItemlntendedApplication) ) 
when  (for  superRole  in  itemApplicationSlots 

thereis  (KLIsRoleDescendantP  role  superRole) ) 
collect  (SupplyRoleMetalndicator  role  ’AIPSDOMAINMETA)))]) 


{25} 
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(MapPos i t ionDesc  r ipt ion 

[DLAMBDA  ( (position  IndividualConcept  (SATISFIES  (KLIsConceptDescendantP 

position  'POSITION))) 

(transform  IndividualConcept  (SATISFIES  (KLIsConceptDescendantP 

transform  'MAPPING) ) ) 

(RETURNS  IndividualConcept  (SATISFIES  (KLIsConceptDescendantP 

VALUE  'POSITION) ) ) ) 

(CLISP:  MIXED  (RECORD  (XCoord  YCoord) ) ) 

(*  Edited  by  F.Zdybel  on 
31-Jul-80.) 

(*  Transforms  a  location  expressed  in  one  coordinate  system 
via  the  given  transform  into  a  location  expressed  in  a 
different  coordinate  system.  The  actual  transformation  is 
carried  out  by  the  most  specific  ToTransform  procedure 
associated  with  the  mapping.) 


(Make  POSITION  Location  (APPLY*  (CAR  (KLFindlData  transform  • ( 
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9.  SOURCE  PILE:  AIPSNAVAL 

Ini  tENEMYPLANE . 1 

InitENEMYSHIP . 2 

InitENEMYSUB . 3 

Ini  tFRIENDLYPLANE . 4 

InitFRIENDLYSHIP . 5 

InitFRIENDLYSUB . 6 

InitNavalDomainModel . 7 

InitPLANE . 8 

InitPLATFORM . 9 

InitSHIP . 10 

InitSUB . 11 

Ini  tUNKNOWNPL  ANE . 12 

InitUNKNOWNSHIP . 13 

Ini  tUNKNOWNSUB . 14 
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(FILECREATED  "17-Jul-80  02:14:13"  <NEWAIPS>AIPSNAVAL . . 3  4370 
changes  to:  InitENEMYSHIP  InitENEMYSUB 

previous  date:  "13-Jul-80  17:21:25"  <NEWAIPS>AIPSNAVAL. . 2) 


(PRETTYCOMPRINT  AIPSNAVALCOMS) 

(RPAQQ  AIPSNAVALCOMS  ( (FNS  *  AIPSNAVALINITFNS ) 

(ADDVARS  (CKLONEFILES  AIPSNAVAL) ) ) ) 

(RPAQQ  AIPSNAVALINITFNS  ( Ini tENEMYPLANE  InitENEMYSHIP  InitENEMYSUB 

InitFRIENDLYPLANE  InitFRIENDLYSHIP 
InitFRIENDLYSUB 

InitNavalDomainModel  InitPLANE 
InitPLATFORM  InitSHIP  InitSUB 
InitUNKNOWNPLANE  InitUNKNOWNSHIP 
InitUNKNOWNSUB) ) 

(DEFINEQ 


U1 


(Ini tENEMYPLANE 
[LAMBDA  NIL 

[concept  ENEMYPLANE 

(specializes  PLANE  PLATFORM) 
[roleset  NIL 

(mods  Owner ship@PLATFORM) 
(vr  'Enemy) ] ] ] ) 


{2} 


(InitENEMYSHIP 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

14-Jul-80.) 

[concept  ENEMYSHIP 

(specializes  SHIP  PLATFORM) 

[roleset  NIL 

(mods  Ownership@PLATFORM) 

(vr  ’Enemy)]]]) 


{3} 

(InitENEMYSUB 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 
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[concept  ENEMYSUB 

(specializes  SUB  PLATFORM) 
[roleset  NIL 

(mods  Owner ship@PLATFORM) 
(vr  ’Enemy)]]]) 


14-Jul-80.) 


{4} 


(InitFRI ENDLYPLANE 
[LAMBDA  NIL 

[concept  FRIENDLYPLANE 

(specializes  PLANE  PLATFORM) 
[roleset  NIL 

(mods  Owner ship@PLATFORM) 
(vr  ’Friendly)]]]) 


{5} 


(Ini tFRI ENDLYSH I P 
[LAMBDA  NIL 

[concept  FRIENDLYSHIP 

(specializes  SHIP  PLATFORM) 
[roleset  NIL 

(mods  Owner sh i p@PLATFORM ) 
(vr  ’Friendly)]]]) 


{6} 


(InitFRIENDLYSUB 
(LAMBDA  NIL 

[concept  FRIENDLYSUB 

(specializes  SUB  PLATFORM) 
[roleset  NIL 

(mods  Ownership@PLATFORM) 
(vr  ’Friendly)]]]) 


(*  Edited  by  F.Zdybel  on 
9-Jul-80.) 


{7} 


(InitNavalDomainModel 

[LAMBDA  NIL  (*  Knowledge  about  the  domain 

of  naval  tactical  platforms.) 

(InitPLATFORM) 

(InitSHIP) 

(InitSUB) 

(InitPLANE) 
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(Ini tFRIENDLYSHIP) 

(InitFRIENDLYSUB) 

(Ini tFRIENDLYPLANE ) 

(InitENEMYSHIP) 

(InitENEMYSUB) 

(InitENEMYPLANE) 

(InitONKNOWNSHIP) 

(InitONKNOWNSUB) 

(InitUNKNOWNPLANE] ) 


{8} 

(InitPLANE 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

ll-Jul-80 . ) 

[concept  PLANE 

(specializes  VEHICLE) 

[roleset  NIL 

(mods  Medium@VEHICLE) 

(vr  ’Air)]]]) 


{9} 

(InitPLATFORM 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

9-Jul-80 . ) 

[concept  PLATFORM 


(*  Describes  a  vehicle  with  weapons  systems  and  sensor 
systems,  and  an  engagement  status) 


(specializes  VEHICLE) 
[roleset  EngagementStatus 
(vr  ATOM) ] 


(*  The  filler  of  this  role  should  be  either  T  or  NIL  depending 
on  whether  the  Platform  currently  has  targets  engaged  or  is 
itself  engaged  as  a  target.) 


[roleset  Ownership 
(vr  ATOM)] 


(*  Expected  to  be  either 
Friendly,  Enemy  or  Unknown.)]]) 
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(InitSHIP 
[LAMBDA  NIL 

[concept  SHIP 


(specializes  VEHICLE) 
[roleset  NIL 

(mods  Medium@VEHICLE) 
(vr  'Surface)]]]) 


{10} 


(*  Edited  by  F.Zdybel  on 
9-Jul-80.) 

(*  Does  not  include 
submersibles. ) 


UU 

(InitSUB 

[LAMBDA  NIL 
[concept  SUB 

(specializes  VEHICLE) 

[roleset  NIL 

(mods  Medium@VEHICLE) 

(vr  'Subsurface)]]]) 


{12} 


( In i tUNKNOWNPLANE 
[LAMBDA  NIL 

[concept  UNKNOWNPLANE 

(specializes  PLANE  PLATFORM) 
[roleset  NIL 

(mods  Owner ship@PLATFORM) 
(vr  'Unknown) ] ] ] ) 


(*  Edited  by  F.Zdybel  on 
9-Jul-80.) 


{13} 


( I n i tUNKNOWNSHIP 
[LAMBDA  NIL 

[concept  UNKNOWNSHIP 

(specializes  SHIP  PLATFORM) 
[roleset  NIL 

(mods  Owner ship@PLATFORM) 
(vr  'Unknown)]]]) 


{14} 

(InitUNKNOWNSUB 
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[LAMBDA  NIL 

[concept  UNKNOWNSUB 

(specializes  SUB  PLATFORM) 
[roleset  NIL 

(mods  Ownership§PLATFORM) 
(vr  'Unknown)]]]) 

) 

(ADDTOVAR  CKLONEFILES  AIPSNAVAL) 
STOP 
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10.  SOURCE  FILE:  AIPSNTDS 

Ini  tENEMYNTDS  PLANE . 1 

Ini  tENEMYNTDS  SHIP . 2 

Ini  tENEMYNTDSSUB . 3 

Ini  tFRIENDLYNTDSPLANE . 4 

Ini  tFRI  ENDLYNTDSSH  IP . 5 

Ini  tFRI  ENDLYNTDSSUB . 6 

InitNTDSConcepts . 7 

Ini  tNTDS  ENGAGEMENTMARK . 8 

InitNTDSITEM . 9 

InitNTDSMAP . 10 

Ini  tNTDS VELOC I TYLEADER . 11 

Ini  tUNKNOWNNTDS  PLANE . 12 

Ini  tUNKNOWNNTDSSH  IP . 13 

Ini  tUNKNOWNNTDS  SUB . 14 

MakeNTDSEngagementMark? . 15 

MakeNTDSGroupStrengthMark? . 16 

MakeNTDSVelocityLeader? . 17 
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(FILECREATED  "13-NOV-80  02:21:26"  <NEWAIPS>AIPSNTDS . . 26  31797 

changes  to:  MakeNTDSEngagementMark?  MakeNTDSGroupStrengthMark? 
MakeNTDSVe loc i tyLeade  r  ? 

previous  date:  "  7-Aug-80  19:53:29"  <NEWAIPS > AIPSNTDS .. 25) 


(PRETTYCOMPRINT  AIPSNTDSCOMS ) 

(RPAQQ  AIPSNTDSCOMS  (  (FNS  *  AIPSNTDSINITFNS) 

(FNS  *  AIPSNTDSDERIVATIONFNS) 

(ADDVARS  (CKLONEFILES  AIPSNTDS) ) ) ) 

(RPAQQ  AIPSNTDSINITFNS  (Ini tENEMYNTDS PLANE  Ini tENEMYNTDS SHIP 

InitENEMYNTDSSUB 
Ini tFR I ENDL YNTDSPLANE 
Ini tFR IENDLYNTDSSH I P 
Ini tFRIENDLYNTDSSUB 
Ini tNTDSConcepts 
Ini tNTDS  ENG AGEMENTMARR 
InitNTDSITEM  InitNTDSMAP 
Ini tNTDSVELOCITYLEADER 
Ini tUNKNOWNNTDSPLANE 
I n i tUNKNOWNNTDS SH I P 
Ini tUNKNOWNNTDSSUB ) ) 

(DEFINEQ 


Ul 

(Ini tENEMYNTDSPLANE 

(LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

13-Jul-80.) 

(concept  ENEMYNTDSPLANE 

(*  The  symbol  used  in  an 
NTDS-type  Map  to  denote  an 
enemy  airplane.) 

(specializes  NTDSITEM) 

(abstraction  [iconcept  ENEMYNTDS P L ANE AB S TR  of  DISPLAYABSTRACTION] ) ] 
( iconcept  ENEMYNTDSPLANEABSTR 
[irole  IntendedApplication 

(vr  (iconcept  ENEMYNTDS PLANE I APL1] ) ] 

(irole  FixedComponent 

[vr  (Make  EDGESET  VertexList  '((-6  0) 

(0  6) 

(6  0]] 

[irole  FixedComponent 

(vr  (Make  POINT  Location  '(0  0)))]] 
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[iconcept  ENEMYNTDSPLANEIAPLl 


(*  indicates  that  ENEMYNTDS PLANE  should  apply  only  to  the 
depictions  of  EnemyPlanes.  Otherwise,  it  is  very  like  the 
IntendedApplication  template  for  NTDSITEM.) 


(individuates  TEMPLATE) 

(irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  ENEMYPLANE] 

' AIPSDOMAINMETA) ) ) 


[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 


(Ini tENEMYNTDS SHIP 
[LAMBDA  NIL 

[concept  ENEMYNTDS  SHI P 


[roleset  Ownership  of  PLATFORM] 
'AIPSDOMAINMETA) ) ] 

[roleset  Medium  of  VEHICLE] 
’AIPSDOMAINMETA) ) ] 

[roleset  Position  of  PHYSOBJECT] 
'AIPSDOMAINMETA) ) ] 

[roleset  EngagementStatus  of  PLATFORM] 
’AIPSDOMAINMETA) ) ] 

[roleset  Course  of  VEHICLE] 
’AIPSDOMAINMETA) ) ] 

[roleset  Speed  of  VEHICLE] 
’AIPSDOMAINMETA) ) ] 

[roleset  Name  of  PHYSOBJECT] 

’ AIPSDOMAINMETA) ) ] ] ] ) 


(2} 


(*  Edited  by  F.Zdybel  on 
13-Jul-80 . ) 


(*  The  symbol  used  in  an  NTDS-type  Map  to  denote  a  enemy 
surface  ship.) 


(specializes  NTDSITEM) 

(abstraction  [iconcept  ENEMYNTDS SHIPABSTR  of  DISPLAYABSTRACTION] ) ) 
[iconcept  ENEMYNTDS SHIPABSTR 
[irole  IntendedApplication 
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(vr  [iconcept  ENEMYNTDSSHIPIAPLl] ) ] 
[irole  FixedComponent 

(vr  (Make  EDGESET  VertexList  ’((-6  0) 
(0  6) 

(6  0) 

(0  -6) 

(-6  0)) 

Location  ' (0  0) ) ) ] 

[irole  FixedComponent 

(vr  (Make  POINT  Location  '(0  0)))]] 
[iconcept  ENEMYNTDSSHIPIAPLl 


(*  Indicates  that  ENEMYNTDSSHIP  applies  only  to  the  depiction 
of  EnemyShips.  Otherwise  it  is  much  like  the 
IntendedApplication  template  for  NTDSITEM . ) 


(individuates  TEMPLATE) 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  ENEMYSHIP] 

'AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Ownership  of  PLATFORM] 

'AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Medium  of  VEHICLE] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Position  of  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  EngagementStatus  of  PLATFORM] 

•AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Course  of  VEHICLE] 

•AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Speed  of  VEHICLE] 

•AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Name  of  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] ] ] ) 


{3} 

(Ini tENEMYNTDS SUB 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

13-Jul-80.) 

[concept  ENEMYNTDS SUB 
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(*  The  symbol  used  in  an 
NTDS-type  Map  to  denote  an 
enemy  submarine.) 

(specializes  NTDSITEM) 

(abstraction  [iconcept  ENEMYNTDSSUBABSTR  of  DISPLAYABSTRACTION] ) ] 
[iconcept  ENEMYNTDSSUBABSTR 
lirole  IntendedApplication 

(vr  [iconcept  ENEMYNTDSSUBIAPL1] ) ] 

[irole  FixedComponent 

[vr  (Make  EDGESET  VertexList  '((-6  0) 

(-6  -6) 

(6  0]] 

[irole  FixedComponent 

(vr  (Make  POINT  Location  '(0  0)))]] 

[iconcept  ENEMYNTDSSUBIAPL1 


(*  Indicates  that  ENEMYNTDSSUB  should  apply  only  to  the 
depictions  of  EnemySubs .  Otherwise,  it  is  very  like  the 
IntendedApplication  template  for  NTDSITEM.) 


(individuates  TEMPLATE) 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  ENEMYSUB] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Ownership  of  PLATFORM] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Medium  of  VEHICLE] 

• AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Position  of  PHYSOBJECT] 

•AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  EngagementStatus  of  PLATFORM] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Course  of  VEHICLE] 

'AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Speed  of  VEHICLE] 

•AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Name  of  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] ] ] ) 


{4} 
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(InitFRIENDLYNTDSPLANE 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

13-Jul-80 . ) 

[concept  FRIENDLYNTDSPLANE 

(*  The  symbol  used  in  an 
NTDS-type  Map  to  denote  a 
friendly  airplane.) 

(specializes  NTDSITEM) 

(abstraction  [iconcept  FRIENDLYNTDSPLANEABSTR  of  DISPLAYABSTRACTION] ) ] 
[iconcept  FRIENDLYNTDSPLANEABSTR 
[irole  IntendedApplication 

(vr  [iconcept  FRIENDLYNTDSPLANEIAPLl] ) ] 

[irole  FixedComponent 

[vr  (Make  EDGESET  VertexList  '((-6.0  0.0) 

(-5.706339  1.854102) 

(-4.854102  3.526712) 

(-3.526712  4.854102) 

(-1.854102  5.706339) 

(0.0  6.0) 

(1.854102  5.706339) 

(3.526712  4.854102) 

(4.854102  3.526712) 

(5.706339  1.854102) 

(6.0  O.OI] 

[irole  FixedComponent 

(vr  (Make  POINT  Location  '(0  0)))]] 

[iconcept  FRIENDLYNTDSPLANEIAPLl 


(*  Indicates  that  FRIENDLYNTDSPLANE  should  apply  only  to  the 
depictions  of  FriendlyPlanes.  Otherwise,  it  is  very  like  the 
IntendedApplication  template  for  NTDSITEM.) 


(individuates  TEMPLATE) 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  FRIENDLYPLANE] 

1 AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Ownership  of  PLATFORM] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Medium  of  VEHICLE] 

’AIPSDOMAINMETA) ) ] 


[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Position  of  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  EngagementStatus  of  PLATFORM] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 
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(vr  (SupplyRoleMetalndicator  [roleset  Coarse  of  VEHICLE] 

’ AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Speed  of  VEHICLE] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Name  of  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] ] ] ) 


(InitFRIENDLYNTDSSHIP 
[LAMBDA  NIL 

[concept  FRIENDLYNTDSSHIP 


{5} 


{*  Edited  by  F.Zdybel  on 
13-Jul-80.) 


(*  The  symbol  used  in  an  NTDS-type  Map  to  denote  a  friendly 
surface  ship.) 


(specializes  NTDSITEM) 

(abstraction  [iconcept  FRIENDLYNTDSSHIPABSTR  of  DISPLAYABSTRACTION] ) ] 
[iconcept  FRIENDLYNTDSSHIPABSTR 
[irole  IntendedApplication 

(vr  [iconcept  FRIENDLYNTDSSHIPIAPLl] ) ] 

[irole  FixedComponent 

(vr  (Make  CIRCLE  Radius  6  Location  '(0  0)))] 

[irole  FixedComponent 

(vr  (Make  POINT  Location  '(0  0)))]] 

[iconcept  FRIENDLYNTDSSHIPIAPLl 


(*  Indicates  that  FRIENDLYNTDSSHIP  should  apply  only  to  the 
depictions  of  Fr iendlyShips .  Otherwise,  it  is  very  like  the 
IntendedApplication  template  for  NTDSITEM.) 


(individuates  TEMPLATE) 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  FRIENDLYSHIP] 

•AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Ownership  of  PLATFORM] 

'AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Medium  of  VEHICLE] 

'AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Position  of  PHYSOBJECT] 
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[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 


’AIPSDOMAINMETA) ) ] 

[roleset  EngagementStatus  of  PLATFORM] 
'  AIPSDOMAINMETA) ) ] 

[roleset  Course  of  VEHICLE] 
•AIPSDOMAINMETA) ) ] 

[roleset  Speed  of  VEHICLE] 
’AIPSDOMAINMETA) ) ] 

[roleset  Name  of  PHYSOBJECT] 

'  AIPSDOMAINMETA) ) ] ] ] ) 


{6} 


(Ini tFRIENDLYNTDSSUB 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

13-Jul-80.) 

[concept  FRIENDLYNTDSSUB 

(*  The  symbol  used  in  an 
NTDS-type  Map  to  denote  a 
friendly  submarine.) 

(specializes  NTDSITEM) 

(abstraction  [iconcept  FRIENDLYNTDSSUBABSTR  of  DISPLAYABSTRACTION] ) ] 
[ iconcept  FRIENDLYNTDSSUBABSTR 
[irole  IntendedApplication 

(vr  [iconcept  FRIENDLYNTDSSUBIAPL1] ) ] 

[irole  FixedComponent 

[vr  (Make  EDGESET  VertexList  ’({-6.0  0.0) 

(-5.706339  -1.854102) 

(-4.854102  -3.526712) 

(-3.526712  -4.854102) 

(-1.854102  -5.706339) 

(0.0  -6.0) 

(1.854102  -5.706339) 

(3.526711  -4.854102) 

(4.854102  -3.526711) 

(5.706339  -1.854102) 

(6.0  0.0]] 

[irole  FixedComponent 

(vr  (Make  POINT  Location  '(0  0)))]] 

[iconcept  FRIENDLYNTDSSUBIAPLl 


(*  Indicates  that  FRIENDLYNTDSSUB  should  apply  only  to  the 
depictions  of  Fr iendlySubs .  Otherwise,  it  is  very  like  the 
IntendedApplication  template  for  NTDSITEM.) 
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(individuates  TEMPLATE) 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  FRIENDLYSUB] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Ownership  of  PLATFORM] 

•AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Medium  of  VEHICLE] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Position  of  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  EngagementStatus  of  PLATFORM] 

•AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Course  of  VEHICLE] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Speed  of  VEHICLE] 

•AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Name  of  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] ] ] ) 


{7} 


( In i tNTDSConcepts 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

14-Jul-80.) 

(*  Initializes  the  displays 
used  for  NTDS-type  tactical 
maps . ) 

(Ini tNTDSMAP ) 

(InitNTDSITEM) 

(Ini tFRI ENDLYNTDSSH I P ) 

(Ini tFRI ENDLYNTDS  PLANE ) 

(Ini tFRI ENDLYNTDSSUB ) 

(Ini tENEMYNTDSSH I P ) 

(InitENEMYNTDSSUB) 

(Ini tENEMYNTDS PLANE ) 

(Ini tUNKNOWNNTDSSH IP ) 

( InitUNKNOWNNTDSSUB) 

(Ini tUNKNOWNNTDSPLANE ) 

(Ini tNTDSENGAGEMENTMARK ) 

(Ini tNTDSVELOC ITYLEADER ] ) 


{8} 
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(Ini tNTDS ENG AGEMENTMARK 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

17-JU1-80.) 

[concept  NTDS ENG AGEMENTMARK 


(*  This  is  the  little  horizontal  line  through  the  locator  dot 
in  an  NTDS  symbol  which  indicates  that  the  depicted  platform 
has  engaged  or  been  engaged  by  some  other  platform.) 


(specializes  DISPLAY) 

(abstraction  [iconcept  NTDSENGAGEMENTMARKABSTR  of  DISPLAYABSTRACTION] ) 

[ iconcept  NTDSENGAGEMENTMARKABSTR 
[irole  FixedComponent 

[vr  (Make  LINESEGMENT  EndPoint  '  (  (-6  0) 

(6  0]] 

[irole  IntendedApplication 

(vr  [iconcept  NTDSENGAGEMENTMARKIAPLl] ) ] ] 

[iconcept  NTDSENGAGEMENTMARKIAPLl 
(individuates  TEMPLATE) 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  PLATFORM] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  EngagementStatus  of  PLATFORM] 

' AIPSDOMAINMETA) ) ] ] 

[concept  NARROWNTDSENGAGEMENTMARK 


(*  Because  the  box  on  which  the  NTDS  Symbols  for  unknown 
platforms  are  based  is  one  unit  narrower  than  the  circle  for 
friendlys  or  the  lozenge  for  enemies,  it  is  necessary  to  have 
a  separate  type  of  engagement  mark  for  the  unknowns.) 


(specializes  NTDSENGAGEMENTMARK ) 

(abstraction  [iconcept  NARROWNTDSENGAGEMENTMARKABSTR  of 
DISPLAYABSTRACTION] ) ] 

[ iconcept  NARROWNTDSENGAGEMENTMARKABSTR 
[irole  FixedComponent 

[vr  (Make  LINESEGMENT  EndPoint  •  (  (-5  0) 

(5  0]] 

[irole  IntendedApplication 

(vr  [ iconcept  NTDSENGAGEMENTMARKIAPLl] ) ] ] ] ) 


{9} 
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(InitNTDSITEM 
[LAMBDA  NIL 

[concept  NTDSITEM 


(*  Edited  by  P.zdybel  on 
7-Aug-80 . ) 

(*  A  Map  Item  that  is  one  of 
the  NTDS  symbols.) 


(specializes  MAPITEM) 

(abstraction  [iconcept  NTDSITEMABSTR  of  DISPLAYABSTRACTION] ) 
[roleset  NIL 

(mods  Application@DISPLAY) 

(derivation  (Consequents  EngagementMark  VelocityLeader 

GroupStrengthMarker) ) ] 


[roleset  VelocityLeader 

(diffs  Realization@DISPLAY) 

(vr  NTDSVELOC ITY LEADER ) 

(derivation  (MakeNTDSVelocityLeader?  (Prerequisites  Application 

Ground) 


(Arguments 

{ $$CONCEPT; Application} : 1 

f $$CONCEPT; Ground} : 1) ) ) ] 


(*  This  is  the  vector  line  that  extends  from  the  center  of  the 
NTDSItem,  the  length  and  orientation  of  which  denote  the 
velocity  of  the  vehicle.) 


[roleset  EngagementMark 

(diffs  Realization@DISPLAY) 

(vr  NTDSENGAGEMENTMARK ) 

(derivation  (MakeNTDSEngagementMark?  (Prerequisites  Application 

Ground) 

(Arguments 

{ $$CONCEPT;Application| : 1 

{ $$CONCEPT; Ground} : 1) ) ) ] 


(*  This  is  the  line  through  the  center  of  the  NTDSItem,  which 

indicates  whether  the  denoted  vehicle  has  engaged 

(or  been  engaged  by)  as  the  target  of  some  other  vehicle) 


[roleset  GroupStrengthMarker 
(diffs  Realization@DlSPLAY) 

(vr  NTDSSTRENGTHMARK) 

(derivation  (MakeNTDSGroupStrengthMark?  (Prerequisites  Application) 

(Arguments 

{$$CONCEPT; Application}) ) ) ] 


{*  This  is  the  little  hashmark  through  the  left  side  of  the 
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NTDSItem  which  indicates  whether  it  denotes  one,  few,  or  many 
vehicles.) 


[iconcept  NTDSITEMIAPLi 


(*  This  template  is  used  to  indicate  the  intended  application 
not  only  of  NTDSITEM,  but  also  in  many  cases  the  intended 
application  of  generic  descendants  of  NTDSITEM 
(e.g.:  FRIENDLYNTDSSHIP ,  ENEMYNTDSSUB . )  The  possible  purposes 
of  these  little  Displays  include  depicting  the  ownership, 
location,  velocity,  name,  and  engagement  status  of  various 
vehicles.  Of  course,  these  symbols  also  display  the  general 
type  of  the  vehicle  (e.g..  Ship,  Sub),  but  at  the  moment  there 
is  no  RoleSet  on  VEHICLE  to  redundantly  echo  the  category, 
thus  there  is  no  way  to  get  a  grip  on  that  particular 
information  with  a  Template.  This  is  probably  a  deficiency  in 
Template . ) 


(individuates  TEMPLATE) 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  SHIP] 

' AIPSDOMAINMETA) ) ] 

firole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  SUB] 

’AIPSDOMAINMETA) ) ] 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  PLANE] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Ownership  of  PLATFORM] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Medium  of  VEHICLE] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Position  of  PHYSOBJECT] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  EngagementStatus  of  PLATFORM] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Course  of  VEHICLE] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Speed  of  VEHICLE] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Name  of  PHYSOBJECT] 
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'  AIPSDOMAINMETA) ) ] ] ] ) 


{10} 


(InitNTDSMAP  ,*  Edited  by  p.zdybel  on 

[LAMBDA  NIL  6-Aug-80.) 

[concept  NTDSMAP  intended  to  describe  the 

familiar  type  of  NTDS  situation 
display. ) 

(specializes  RECTANGULARMAP) 

[roleset  NIL 

(mods  ScaleUn i t@RECTANGULARMAP ) 

(itags  (DefaultFiller  'NM))] 

[roleset  Pr iendlyShipSym 
(diffs  Itera@MAP) 

(modality  Obligatory) 

(number  (0  NIL) ) 

(vr  FRIENDLYNTDSSHIP) ] 

[roleset  Fr iendlySubSym 
(diffs  Item@MAP) 

(modality  Obligatory) 

(number  (0  NIL)) 

(vr  FRIENDLYNTDSSUB) 1 
[roleset  Fr iendlyPlaneSym 
(diffs  Item@MAP) 

(modality  Obligatory) 

(number  (0  NIL)) 

(vr  FRIENDL YNTDS PLANE ) ] 

[roleset  EnemyShipSym 
(diffs  ltem@MAP) 

(modality  Obligatory) 

(number  (0  NIL)) 

(vr  ENEMYNTDSSHIP) ] 

[roleset  EnemySubSym 
(diffs  Item@MAP) 

(modality  Obligatory) 

(number  (0  NIL)) 

(vr  ENEMYNTDS SUB ) ] 

[roleset  EnemyPlaneSym 
(diffs  Item@MAP) 

(modality  Obligatory) 

(number  (0  NIL)) 

(vr  ENEMYNTDS PLANE) ] 

[roleset  UnknownShipSym 
(diffs  Item@MAP) 

(modality  Obligatory) 

(number  (0  NIL) ) 

(vr  UNKNOWNNTDSSHIP) ] 
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[roleset  UnknownSubSym 
(diffs  Item@MAP) 

(modality  Obligatory) 
(number  (0  NIL)) 

(vr  UNKNOWNNTDSSUB ) ] 
(roleset  UnknownPlaneSym 
(diffs  ItemiMAP) 

(modality  Obligatory) 
(number  (0  NIL) ) 

(vr  UNKNOWNNTDSPLANE) ] ] ] ) 


{11} 

(Ini tNTDS VELOC ITYLEADER 

(LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

6-Aug-80 . ) 

(concept  NTDSVELOCITYLEADER 


(*  This  is  the  line  leading  out  from  the  locator  dot  of  an 
NTDS  Symbol  which  gives  the  course  and  speed  of  the  platform) 


(specializes  DISPLAY) 

(abstraction  (iconcept  NTDSVELOCITYLEADERABSTR  of  DISPLAYABSTRACTION] ) 
[roleset  Leader 

(modality  Obligatory) 

(mods  Realization@DISPLAY) 

(vr  LINESEGMENT) 

(itags  (DefaultFiller  (Make  LINESEGMENT) ))] ] 

[iconcept  NTDSVELOCITYLEADERABSTR 
[irole  IntendedApplication 

(vr  (iconcept  NTDSVELOCITYLEADERIAPL1] ) ] ] 

[iconcept  NTDS VELOC I TYLE ADE R I AP L 1 
(individuates  TEMPLATE) 

(irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  PLATFORM] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Course  of  VEHICLE] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Speed  of  VEHICLE] 

' AIPSDOMAINMETA) ) ] ] ] ) 


{12} 

(Ini t UNKNOWNNTDSPLANE 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 
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[concept  UNKNOWNNTDS PLANE 


7-Aug-80 . ) 


(*  The  symbol  used  in  an 
NTDS-type  Map  to  denote  an 
unknown  airplane.) 

(specializes  NTDSITEM) 

(abstraction  [iconcept  UNKNOWNNTDS PLAN EABSTR  of  DISPLAYABSTRACTION] ) 
[roleset  NIL 

(mods  EngagementMark@NTDSITEM) 

(vr  NARROWNTDSENGAGEMENTMARK ) ]] 

[iconcept  UNKNOWNNTDS PLANEABSTR 
[irole  IntendedApplication 

(vr  [iconcept  UNKN0WNNTDSPLANEIAPL1] ) ] 

[irole  FixedComponent 

[vr  (Make  EDGESET  VertexList  '{(-5  0) 

(-5  5) 

(5  5) 

(5  0]] 

[irole  FixedComponent 

(vr  (Make  POINT  Location  ’  (0  0))))] 

[  iconcept  UNKNOWNNTDS  PL ANE I AP L 1 


(*  Indicates  that  UNKNOWNNTDSPLANE  should  apply  only  to  the 
depictions  of  UnknownPlanes .  Otherwise,  it  is  very  like  the 
IntendedApplication  template  for  NTDSITEM.) 


(individuates  TEMPLATE) 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  UNKNOWNPLANE] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Ownership  of  PLATFORM] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Medium  of  VEHICLE] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Position  of  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  EngagementStatus  of  PLATFORM] 

’AIPSDOMAINMETA) ) ] 


[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Course  of  VEHICLE] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Speed  of  VEHICLE] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 
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(vr  (SupplyRoleMetalndicator  [roleset  Name  of  PHYSOBJECT] 

' AIPSDOMAINMETA) )  ]  ]  ] ) 


{13} 

(Ini tONKNOWNNTDSSHIP 

[LAMBDA  NIL  {*  Edited  by  F.Zdybel  on 

7-Aug-80 . ) 

[concept  UNKNOWNNTDSSHIP 


(*  Can  be  used  in  an  NTDSMAP  to  depict  unclassif f ied  Ships,  or 
Ships  that  have  been  classified  as  Unknown 
(as  indicated  by  their  Ownership  Role.)) 


(specializes  NTDSITEM) 

(abstraction  [iconcept  UNKN OWNNTDS SHI P ABSTR  of  DISPLAYABSTRACTION) ) 
[roleset  NIL 

(mods  Eng agementMark@NTDS ITEM) 

(vr  NARROWNTDSENGAGEMENTMARK) ]] 

[iconcept  UNKNOWNNTDS SH I PABS TR 
[irole  IntendedApplication 

(vr  [iconcept  UNKNOWNNTDSSHIPIAPLl] ) ] 

[irole  FixedCoraponent 

(vr  (Make  EDGESET  VertexList  ’((-5  -5) 

(-5  5) 

(5  5) 

(5  -5) 

(-5  -5)) 

Location  ' (0  0) ) ) ] 

[irole  FixedComponent 

(vr  (Make  POINT  Location  '(0  0)))]] 

[iconcept  UNKNOWNNTDSSHIPIAPLl 


{*  Indicates  that  UNKNOWNNTDSSHIP  should  apply  only  to  the 
depictions  of  UnknownShips .  Otherwise,  it  is  very  like  the 
IntendedApplication  template  for  NTDSITEM) 


(individuates  TEMPLATE) 

[irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  UNKNOWNSHIP] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Ownership  of  PLATFORM] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Medium  of  VEHICLE] 
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[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 

(irole  RoleGroup 

(vr  (SupplyRoleMetalndicator 


'  AIPSDOMAINMETA) ) ] 

[roleset  Position  of  PHYSOBJECT] 
'AIPSDOMAINMETA) ) 1 

[roleset  EngagementStatus  of  PLATFORM] 
’AIPSDOMAINMETA) ) ] 

[roleset  Course  of  VEHICLE] 

'  AIPSDOMAINMETA) ) ] 

[roleset  Speed  of  VEHICLE] 
’AIPSDOMAINMETA) ) ] 

[roleset  Name  of  PHYSOBJECT] 

'  AIPSDOMAINMETA) ) ] ] ] ) 


{14} 


(Ini tUNKNOWNNTDSSUB 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

7-Aug-80 . ) 

[concept  UNKNOWNNTDSSUB 

(*  The  symbol  used  in  an 
NTDS-type  Map  to  denote  an 
unknown  submarine.) 

(specializes  NTDSITEM) 

(abstraction  [iconcept  UNKNOWNNTDSSUBABSTR  of  DISPLAYABSTRACTION] ) 
[roleset  NIL 

(mods  EngagementMark@NTDSITEM) 

(vr  NARROWNTDSENGAGEMENTMARK ) ] ] 

[  iconcept  UNKNOWNNTDSSUBABSTR 
(irole  IntendedApplication 

(vr  (iconcept  UNKN0WNNTDSSUBIAPL1] ) ] 

[irole  FixedComponent 

[vr  (Make  EDGESET  VertexList  '((-5  0) 

(-5  -5) 

(5  -5) 

(5  0]] 

[irole  FixedComponent 

(vr  (Make  POINT  Location  '(0  0)))]] 

[iconcept  UNKNOWNNTDS SUB I APL 1 


(*  Indicates  that  UNKNOWNNTDSSUB  should  apply  only  to  the 
depictions  of  UnknownSubs.  Otherwise,  it  is  very  like  the 
IntendedApplication  template  for  NTDSITEM.) 


(individuates  TEMPLATE) 
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) 


(irole  ConceptGroup 

(vr  (SupplyConceptMetalndicator  [concept  UNKNOWNSUB] 

* AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Ownership  of  PLATFORM] 

'AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Medium  of  VEHICLE] 

•AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Position  of  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  EngagementStatus  of  PLATFORM] 

’AIPSDOMAINMETA) )] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Course  of  VEHICLE] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Speed  of  VEHICLE] 

’AIPSDOMAINMETA) ) ] 

[irole  RoleGroup 

(vr  (SupplyRoleMetalndicator  [roleset  Name  of  PHYSOBJECT] 

' AIPSDOMAINMETA) ) ] ] ] ) 


(RPAQQ  AIPSNTDSDERIVATIONFNS  (MakeNTDSEngagementMark? 

Mak  eNTDSGr  oups  trengthMark? 
MakeNTDSVelocityLeader?) ) 


(DEFINEQ 


{15} 

(MakeNTDSEngagementMark? 

[DLAMBDA  ((template  IndividualConcept  (SATISFIES  template  df  ' I TEMPLATE ) ) 
(mapGround  IndividualConcept  (SATISFIES  mapGround  df 

'VIEWSURFACE) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  VALUE: 1  df 

*■  NTDS  ENG AGEMENTMARK )  )  ) 
(*  Edited  by  F.Zdybel  on 
13-NOV-80.) 

(*  Looks  through  the  templates  in  applicationList 
(the  Application  Role  fillers  at  the  NTDSItem)  and  at  the 
EngagementStatus  of  the  depicted  vehicle  and  determines 
whether  or  not  to  create  an  engagement  mark  as  part  of  the 
NTDSItem.  If  the  role  should  not  be  filled,  the  derivation  is 
aborted.  Otherwise,  an  instance  of  NTDS ENG AGEMENTMARK  or 
NARROWNTDSENGAGEMENTMARK  is  returned.) 
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(PROG  ((vehicle  (  (FindTemplateObjects  template) : 1) ) 

(targetRole  (EngagementStatus@PLATFORM) ) 

(context  (KLGetNamedContext  ' AIPSDOMAINMETA) ) ) 

(if  (for  roleMetalndicator  in  { template ;RoleGroup} 

thereis  (KLIsRoleDescendantP  (KLGetMetaDescr ibedBntity 

roleMetalndicator  context) 
targetRole) ) 

and  (KLFindRoleValues  vehicle  targetRole) : 1~=NIL 
then  (RETURN  < (APPLY*  'Make  (KLGetConceptName  (CAR 

{ $$PROTOTYPE?EngagementMark} ) ) 
'Application 

(Make  ITEMPLATE  ConceptGroup 

(SupplyConceptMetalndicator 
vehicle  ’AIPSDOMAINMETA) 
RoleGroup 

(SupplyRoleMetalndicator 

targetRole 
’AIPSDOMAINMETA) ) 

'Ground  mapGround) 

>) 

else  (StopFill) ) ) ] ) 


{16} 


(MakeNTDSGroupStrengthMark? 

[ DLAMBD A  ( ( itemAppl ications  (LST  OF  IndividualConcept)  (SATISFIES 

( 

HomogenousConceptListP  itemApplications  ‘‘ITEMPLATE) ) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  VALUE :1  df 

"DISPLAYITEM) ) ) 
(*  Edited  by  F.Zdybel  on 
13-NOV-80.) 

(StopDer ivation) ] ) 


{17} 


(MakeNTDSVelocityLeader? 

[ DLAMBDA  { (template  IndividualConcept  (SATISFIES  (template  df 

"ITEMPLATE) ) ) 

(mapGround  IndividualConcept  (SATISFIES  mapGround  df 

"VIEWSURFACE) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  VALUE: 1  df 

"NTDSVELOCITYLEADER) ) ) 
(*  Edited  by  F.Zdybel  on 
1 3-NOV-80 . ) 

(*  Looks  through  the  templates  in  applicationList 

(the  Application  Role  fillers  at  the  NTDSItem)  and  determines 
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whether  or  not  to  create  a  velocity  leader  as  part  of  the 
NTDSItem.  If  the  templates  do  not  specify  the  course  and  the 
speed  of  the  object  being  depicted,  then  the  derivation  is 
aborted.  Otherwise,  an  instance  of  LINESEGMENT  is  returned.) 


(PROG  ((vehicle  (FindTemplateObjects  template) :1) 

(speedRole  Speed@VEHICLE) 

(courseRole  Course@VEHICLE) 

(context  (KLGetNamedContext  'AIPSDOMAINMETA))) 

(if  (for  roleMetalndicator  in  { template;RoleGroup} 

thereis  (KLIsRoleDescendantP  (KLGetMetaDescr ibedEntity 

roleMetalndicator  context) 
courseRole) ) 

and  (for  roleMetalndicator  in  { template;RoleGroup} 
thereis  (KLIsRoleDescendantP  ( 

KLGetMetaDescr ibedEntity  roleMetalndicator  context) 

speedRole) ) 

and  (KLFindRoleValues  vehicle  courseRole) 
and  (KLFindRoleValues  vehicle  speedRole) 
then  (RETURN  < (Make  NTDSVELOCITYLEADER  Application 

(Make  ITEMPLATE  ConceptGroup 

(SupplyConceptMetalndicator  vehicle 
’AIPSDOMAINMETA) 

RoleGroup 

< (SupplyRoleMetalndicator 

courseRole 


) 


>) 

else  (StopFill) ) ) ] ) 


’AIPSDOMAINMETA) 

(SupplyRoleMetalndicator 

speedRole 

’AIPSDOMAINMETA) 

>) 


Ground  mapGround) 


(ADDTOVAR  CKLONEFILES  AIPSNTDS) 
STOP 
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11.  SOURCE  PILE:  AIPSREALIZATION 

InitCIRCLE . 1 

Ini  tCLOSEDCURVE . 2 

InitCURVE . 3 

InitDISPLAYATOM . 4 

I  n  i  tD  I S  PLA YCOMPOS ITE . 5 

InitDISPLAYFORM . 6 

InitDisplayFormConcepts . 7 

InitEDGESET . 8 

Ini  tELLIPSE . 9 

InitLINESEGMENT . 10 

InitPOINT . 11 

Ini  tPOLYGON . 12 

InitRealizationModel . 15 

InitRECTANGLE . 13 

Ini  tREGULARPOLYGON . 14 

MakeRec  tangle . 18 

TLDisplayAtom . 16 

TLRec  tangle . 17 

TMRectangle . 19 

TSRectangle . 20 


109 


Source  File:  AIPSREALIZATION 


Bolt  Beranek  and  Newman  Inc 


Report  No 


4752 


(FILECREATED  "29-Jan-81  01:10:48"  <NEWAIPS> AIPSREALI ZATION . . 28  11002 


changes  to:  TLDisplayAtom 

previous  date:  "13-Jan-81  22:59:22"  <NEWAIPS>AIPSREALI ZATION. . 27) 


(PRETTYCOMPRINT  AIPSREALIZATIONCOMS) 

(RPAQQ  AIPSREALIZATIONCOMS  ( (*  The  AIPS  Realization  Model  resides  here. 

This  contains  the  lowest-level  description 
of  drawable  graphical  entities  as  well  as 
the  routines  which  know  how  to  draw,  erase, 
and  otherwise  deal  with  these.) 

(FNS  *  AIPSREALIZATIONINITFNS) 

(FNS  *  AIPSREALIZATIONTOLOCATEFNS) 

(ADDVARS  (CKLONEFILES  AIPSREALI Z ATION ) ) 

(FNS  *  AIPSREALI ZATIONDERIVATIONFNS) 

(FNS  *  AIPSREALI ZATIONTOMAKEFNS ) 

(FNS  *  AIPSREALI ZATIONTOSIZEFNS) ) ) 

[DECLARE:  DONTE VAL @ LOAD  DONTCOPY 


(*  The  AIPS  Realization  Model  resides  here. 

This  contains  the  lowest-level  description  of  drawable  graphical 
entities  as  well  as  the  routines  which  know  how  to  draw,  erase, 
and  otherwise  deal  with  these.) 

1 


(RPAQQ  AIPSREALIZATIONINITFNS  (InitCIRCLE  InitCLOSEDCURVE  InitCURVE 

InitDISPLAYATOM 
I n i tD I S  PL AYCOMPOS I TE 
InitDISPLAYFORM 
InitDisplayFormConcepts 
InitEDGESET  InitELLIPSE 
InitLINESEGMENT  InitPOINT 
InitPOLYGON  InitRECTANGLE 
Ini tKEGULARPOLYGON 
InitRealizationModel) ) 

(DEFINEQ 


{1} 
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(InitCIRCLE 
[LAMBDA  NIL 

[concept  CIRCLE 

(specializes  ELLIPSE) 

[roleset  Radius 

(mods  SemiMinorAxis  @  ELLIPSE) 
(mods  SemiMajorAxis  @  ELLIPSE) ] 
(itags  (ToDraw  TDCircle) ) ] ] ) 


(*  Edited  by  J. Gibbons  on 
8-Nov-80.) 


(InitCLOSEDCURVE 
[LAMBDA  NIL 

[concept  CLOSEDCURVE 
(specializes  CURVE) 


{2} 


(*  Edited  by  J. Gibbons  on 
3 l-Jul-80 . ) 


(*  May  differ  from  CURVE  by  the  addition  of  tagged  procedures 
for  determining  whether  a  given  point  is  within  the 
Approximation  (which  is  expected  to  be  an  edgeset  that  closes 
on  itself.)) 


]]) 


{3} 


(InitCURVE 
[LAMBDA  NIL 

[concept  CURVE 


(specializes  DISPLAYATOM) 
[roleset  Approximation 
(vr  EDGESET) ] 

(itags  (ToDraw  TDCurve))]]) 


(*  Edited  by  J. Gibbons  on 
S-jul-80.) 

(*  We  cannot  really  handle 
curves  so  we  approximate  them 
with  an  Edgeset.) 


(InitDISPLAYATOM 
[LAMBDA  NIL 

[concept  DISPLAYATOM 


{4} 


(*  Edited  by  J. Gibbons  on 
13-Jan-81 . ) 
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(*  A  Display  Atom  is  the  most  primitive  type  of  Display  Form. 
It  has  no  constituents  and  is  the  final  descriptive  level 
before  descent  into  LISP  drawing  procedures.) 


(specializes  DISPLAYFORM) 

(itags  (ToErase  TEDisplayAtom) 

(ToLocate  TLDisplayAtom) ) ] 1 ) 


{5} 


(Ini tDISPLAYCOMPOS ITE 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

13- Jan- 81.) 

[concept  DISPLAYCOMPOSITE 

(*  A  possibly  recursive  concept 
to  aggregate  DisplayAtoms . ) 

(specializes  DISPLAYFORM) 

[roleset  Component 

(modality  Obligatory) 

(number  (1  NIL)) 

(vr  DISPLAYFORM) ] 

[roleset  CoordSys 

(vr  CARTES I ANSYSTEM ) ] 


(*  The  coordinate  system  by  which  the  locations  of  the 
component  Display  Forms  are  interpreted.) 


(itags  (ToDraw  TDDisplayCoraposite) 

(ToErase  TEDisplayComposite) ) ]] ) 


{6} 


(InitDISPLAYFORM 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

13-Jan-81 . ) 

[concept  DISPLAYFORM 


(*  Display  Items  come  in  two  flavors:  Displays 
(graphic  Presentations)  and  Display  Forms 
(graphic  phenomena.)) 


(specializes  DISPLAYITEM) ] ] ) 
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{7} 


(InitDisplayFormConcepts 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

27-Oct-80.) 

(InitDISPLAYFORM) 

(Ini tDISPLAYATOM) 

(Ini tD ISPLAYCOMPOS ITE ) 

(InitPOINT) 

(InitEDGESET) 

(InitCURVE) 

(InitLINESEGMENT) 

( In i tCLOSEDCURVE ) 

( Ini tELLIPSE) 

(InitPOLYGON) 

(InitCIRCLE) 

(Ini tREGULARPOLYGON ) 

(InitRECTANGLE) ) 


{8} 


(InitEDGESET 
[LAMBDA  NIL 

[concept  EDGESET 


(specializes  DISPLAYATOM) 
[roleset  VertexList 
(modality  Obligatory) 

(vr  LISTP) ] 

(itags  (ToDraw  TDEdgeSet) ) ] ] ) 


(*  Edited  by  J. Gibbons  on 
8-Jul-80.) 

(*  A  cheap  way  of  representing 
a  bunch  of  little  contiguous 
lines. ) 


{9} 


(Ini tELLIPSE 
[LAMBDA  NIL 

[concept  ELLIPSE 

(specializes  CLOSEDCURVE) 
[roleset  Center 

(mods  Loca t ion@CLOSEDCURVE ) ] 
[roleset  SemiMinorAxis 
(diffs  S i ze@CLOSEDCURVE ) 
(modality  Obligatory) ] 
[roleset  SemiMajorAxis 
(diffs  Size@CLOSEDCURVE) 
(modality  Obligatory)] 


(*  Edited  by  J. Gibbons  on 
13-Jan-81. ) 
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(itags  (ToDraw  TDEllipse) ) 1 ] ) 


{10} 


(InitLINESEGMENT 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

8-Nov-80 . ) 

[concept  LINESEGMENT 

(*  a  finite  piece  of  a  line.) 

(specializes  CURVE) 

[roleset  Endpoint 

(mods  Location@CURVE) 

(number  2)] 

[roleset  Line 
(vr  LINE) 

(derivation  (Der iveLineEquationPromEndpoints  (Prerequisites 

EndPoint) ) ) I 

(itags  (ToDraw  TDLineSegment) ) ] ] ) 


111} 


(InitPOINT 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

8-No v- 80.) 

[concept  POINT 

(specializes  DISPLAYATOM) 

(*  The  Location  of  a  Point  is 
given  in  a  list  of 
coordinates . ) 

(itags  (ToDraw  TDPoint))]]) 


{12} 

(InitPOLYGON 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

8-Nov-80.) 

[concept  POLYGON 

(specializes  DISPLAYCOMPOSITE  CLOSEDCURVE) 

[roleset  Order 
(vr  NUMBERP)] 

[roleset  Side 

(mods  Component@DISPLAYCOMPOSITE) 

(number  (3  NIL)) 

(vr  LINESEGMENT) ] 


(*  Note  that  there  is  a  possible  redundancy  in  how  the 
positions  of  the  vertices  are  expressed. 
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There  may  be  an  Approximation  Edgeset,  or  the  positions  may  be 
roles  of  the  Sides.) 


11) 


{13} 


(InitRECTANGLE 
[LAMBDA  NIL 

[concept  RECTANGLE 
(specializes  POLYGON) 
[roleset  NIL 

(mods  Order@POLYGON) 
(vr  4)] 

[roleset  NIL 


(*  Edited  by  J. Gibbons  on 
19-Dec-80.) 


(mods  S ide@POLYGON) 

(modality  Optional) 

(number  4) 1 
[roleset  LowerLeft 

(diffs  Location@POLYGON) 

(defaultf iller  • (0  0) ) ] 

[roleset  UpperRight 

(diffs  Locat ion@POLYGON ) 

(derivation  (Copy  (Prerequisites  LowerLeft  Height  Width) 

(Binding  (lowerLeft  { $$CONCEPT; LowerLeft} : 1) ) 
(Arguments  < lower Lef t : 1+ ( { $$CONCEPT; Width } : 1-1) 

lowerLeft: 2+ ( { $$CONCEPT; Height} : 1-1) 
>)))1 

[roleset  NIL 

(mods  Height@POLYGON) 

[derivation  (Copy  (Prerequisites  LowerLeft  UpperRight) 

(Arguments  (l+{ $$C0NCEPT; UpperRight} : 1: 2 

- { $$CONCEPT; LowerLeft} : 1 : 21  I 

[roleset  NIL 

(mods  Width@POLYGON) 

[derivation  (Copy  (Prerequisites  LowerLeft  UpperRight) 

(Arguments  (l+{ $$C0NCEPT; UpperRight} : 1: 1 

-{ $$CONCEPT; LowerLeft} : 1: 1] 1 

(itags  (ToDraw  TDRectangle) 

(ToLocate  TLRectangle) 

(ToMake  TMRectangle) 

(ToSize  TSRectangle) ) 1 ] ) 


(Ini tREGULARPOLYGON 
[LAMBDA  NIL 


{14} 


(*  Edited  by  J. Gibbons  on 
13-Jan-81.) 
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[concept  REGULARPOLYGON 
(specializes  POLYGON) 

[roleset  Center 

(mods  Location@POLYGON) ] 

[roleset  Radius 

(mods  Size@POLYGON) ] 

[roleset  NIL  j 

(mods  Or ientation@POLYGON) ] 

(itags  (ToDraw  TDRegularPolygon) ) ] ] ) 

{15}  ^ 

(InitRealizationModel  ! 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

21-Jun-80 . ) 

(*  Initializes  the  AIPS  Realization  Model. 

Concepts  at  this  level  have  to  do  with  geometric  shapes 

(which  are  isomorphic  to  descriptions  of  line  drawings.))  , 


(InitDisplayPormConcepts) 

NIL]) 


(*  Eventually  we  will  init  the 
bmg  stuff  here) 


(RPAQQ  AIPSREALI ZATIONTOLOCATEFNS  (TLDisplayAtom  TLRectangle) ) 
(DEFINEQ 


| 


{16} 


(TLDisplayAtom 

[DLAMBDA  ( (displayAtom  IndividualConcept 
(location  (LST  OF  NUMBERP))) 


(SATISFIES  displayAtom  df 
'DISPLAYATOM) ) 

(*  Edited  by  J. Gibbons  on 
29-Jan-81 . ) 


(*  TLDisplayAtom  sets  the  Location  Roleset  of  displayAtom  to 
location  which  defaults  according  to  the  Location's 
Def aultFiller  ITag.) 


(if  location 

then  (SetRoleValues  displayAtom  Location@DISPLAYATOM  <location>) 
else  location_{displayAtom; SLocation} : 1) 
location] ) 


{17} 
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(TLRectangle 

[ DLAMBDA  ((rectangle  IndividualConcept 
(location  (LST  OF  SMALLP) ) ) 


(SATISFIES  rectangle  df 

'RECTANGLE) ) 

(*  Edited  by  J. Gibbons  on 
21-Dec-80 . ) 


(if  location 

then  (SetRoleValues  rectangle  Lo we  r  Le  f  t  @ RECTANGLE  <location>) 
else  location_  { rectangle ; SLowerLeft} : 1) 

(SetRoleValues  rectangle  UpperRight@RECTANGLE 

<< location: 1+ (  rectangle ; SWidth} : 1-1) 
location: 2+ (  rectangle; SHeight} : 1-1) 

>>) 

location] ) 

) 


(ADDTOVAR  CKLONEFILES  AIPSREALI ZATION ) 


(RPAQQ  AIPSREALI ZATIONDERIVATIONFNS  (MakeRectangle) ) 
(DEFINEQ 


{18} 


(MakeRectangle 

[DLAMBDA  ( (height  NUMBERP) 

(width  NUMBERP) ) 

(*  Make  up  a  Rectangle  from 
Height  and  Width  information.) 
< (Make  RECTANGLE  Height  height  Width  width) 

>]  ) 

) 

(RPAQQ  AIPSREALI ZATIONTOMAKEFNS  (TMRectangle) ) 

(DEFINEQ 


{19} 


(TMRectangle 

[LAMBDA  (gener icRectangle)  (*  Edited  by  J. Gibbons  on 

18-Dec-80 . ) 

< (Make  RECTANGLE) 

>1) 


(RPAQQ  AIPSREALIZATIONTOSIZEFNS  (TSRectangle) ) 
(DEFINEQ 
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{20} 


(TS Rectangle 

[ D LAMBDA  ((rectangle  IndividualConcept  (SATISFIES  rectangle  df 

'RECTANGLE) ) 

(height  (ONEOF  NIL  SMALLP) ) 

(width  (ONEOF  NIL  SMALLP))) 

(*  Edited  by  J. Gibbons  on 
19-Dec-80 . ) 

(if  height 

then  (SetRoleValues  rectangle  Height@RECTANGLE  <height>) 
else  height_{rectangle;&Height} :1) 

(if  width 

then  (SetRoleValues  rectancle  width@RECT ANGLE  <width>) 
else  width_{ rectangle; SWidthf : 1) 

<height  width>] ) 

) 

STOP 
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12.  SOURCE  FILE:  AIPSTABLE 

FindColumnTableRows . 10 

FindColumnWidth . 11 

FindRowHeight . 12 

FindRowTableColumns . 13 

FindTableEntitylndicator  s . 14 

FindTableThemeElementlndicator  s . 15 

FindTableThemeElementlndicatorsAndOr  ientation . 16 

Ini  t  ARRANGEMENT . 1 

InitCOLUMN . 2 

Ini  tCOLUMNTABLE . 3 

InitROW . 4 

InitROWTABLE . 5 

InitTABLE . 6 

InitTableConcepts . 9 

Ini  tTEXTCOLUMN . 7 

InitTEXTROW . 8 

MakeDef  aultTableGround . 17 

MakeTableColumnOrderList . 18 

MakeTableEntryColumns . 19 

MakeTableEntryRows . 20 

MakeTableFoot? . 21 

MakeTableHeaderRow . 22 

MakeTableLef tlndex . 23 

MakeTableRightlndex? . 24 

MakeTableRowOrderList . 25 

TLColumnTable . 26 

TLRowTable . 27 
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(FILECREATED  "18-Dec-80  08:03:51"  <NEWAIPS>AIPSTABLE . . 36  29721 
changes  to:  FindColumnTableRows 

previous  date:  "17-Dec-80  20:06:11"  <NEWAIPS>AIPSTABLE. . 35) 


(PRETTYCOMPRINT  AIPSTABLECOMS ) 

(RPAQQ  AIPSTABLECOMS  (  (FNS  *  AIPSTABLEINITFNS ) 

(FNS  *  AIPSTA8LEDERIVATI0NFNS) 

(FNS  *  AIPSTABLETOLOCATEFNS) 

(ADDVARS  (CKLONEFILES  AIPSTABLE) ) ) ) 

(RPAQQ  AIPSTABLEINITFNS  (InitARRANGEMENT  InitCOLUMN  InitCOLUMNTABLE  InitROW 

InitROWTABLE  InitTABLE 
Ini tTEXTCOLUMN  InitTEXTROW 
InitTableConcepts) ) 

(DEFINEQ 


{1} 

(InitARRANGEMENT 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

18-JU1-80.) 

[concept  ARRANGEMENT 


(*  An  Arrangement  is  any  collection  of  Display  Items  whether 
or  not  their  arrangement  conveys  information. 

Rows,  Columns,  Legends  are  examples  of  Arrangements.) 


(specializes  DISPLAY) 

[roleset  Item 

(diffs  Realization@DISPLAY) 
(modality  Obligatory) 
(number  (2  NIL) ) ] 


[roleset  ItemOrder 
(vr  LISTP) ] 


(*  If  there  aren't  at  least  two 
items,  why  bother?) 


(*  The  list  which  fills  this  Role  can  be  used  to  impose  an 
ordering  on  the  fillers  of  the  Item  Role.) 
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[roleset  Border 

(diffs  Realization@DISPLAY) 
(vr  CLOSEDCURVE) ] 

[roleset  Separator 

(diffs  RealizationiDISPLAY) 
(modality  Optional) 

(number  (0  NIL)) 

(vr  DISPLAYITEM) ] 


(InitCOLUMN 
[LAMBDA  NIL 

[concept  COLUMN 


(specializes  ARRANGEMENT) 

[roleset  NIL 

(mods  I tem@ARRANGEMENT) 

(modality  Obligatory) 

(number  (2  NIL)) 

(vr  DISPLAY) I 
[roleset  NIL 

(mods  Width@DISPLAYITEM) 

(derivation  (FindColumnWidth  (Prerequisites  Item) 

(Arguments  { $$CONCEPT; Item} ) ))]]]) 


{3} 


(*  Could  be  anything  but  is 
probably  a  Line.)]]) 


{2} 


(*  Edited  by  F.Zdybel  on 
12-Dec-80 . ) 

(*  In  contrast  to  Rows,  Columns 
are  expected  to  have  a  linear 
structure. ) 


(Ini LCOLUMNTABLE 
[LAMBDA  NIL 

[concept  COLUMNTABLE 


(*  Edited  by  F.Zdybel  on 
16-Dec-80 . ) 


(*  A  Table  whose  Theme  is  spread  along  its  columns. 
Hence,  a  row  of  columns.) 


(specializes  TABLE  ROW) 

[roleset  NIL 

(mods  Ground@TABLE) 

(derivation  (MakeDef aultTableGround) ) ] 
[roleset  NIL 

(mods  ThemeList@TABLE) 
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(derivation  (FindTableThemeElementlndicator s  (Prerequisites 

Application) 

(Arguments 

{ $$CONCEPT; Application ( ) ) ) ] 

(PROG  ((column  (roleset  Column 

(mods  Group@TABLE  Item@ROW) 

(vr  TEXTCOLUMN) ] ] 

[roleset  Leftlndex 

(diffs  (atomval  column) ) 

(modality  Obligatory) 

(derivation  (MakeTableLef tlndex  (Arguments 

{ $$CONCEPT; SThemeList} : 1 
(CAR 

{ $  $CONCEPT ; SGround ] ] 

(f illwhenmade) ] 

(*  The  Leftlndex  is  the  column  of  display  labels  that  runs 
down  the  left  edge  of  the  ColumnTable . ) 


(roleset  Rightlndex 

(diffs  (atomval  column)) 

[derivation  (MakeTableRightlndex?  (Arguments 

(FLENGTH  (CAR 
{ $$CONCEPT; &EntityList} )  ) 
(CAR 

{ $$CONCEPT;&Lef tlndex} ] 1 

(*  A  very  wide  Table  might  also  want  an  index  along  its  right 
edge . ) 


[roleset  Entry 

(diffs  (atomval  column) ) 

(modality  Obligatory) 

(number  (1  NIL)) 

[derivation  (MakeTableEntryColumns  (Prerequisites  Application) 

(Arguments  (CAR 
{ $  $CONCEPT ; &En  t i tyL i s  t } ) 

(CAR 

{ $  $CONCEPT ; SThemeL i s  t } ) 

(CAR 

{ $$CONCEPT; fcGround} ] 

(f illwhenmade) ] ) 

[roleset  NIL 

(mods  ItemOrder @ ARRANGEMENT ) 

(derivation  (MakeTableColumnOrderList  (Arguments  (CAR 

{ $$CONCEPT; &Lef tlndex} ) 

{ $$CONCEPT ; SEntry } ( 
NLSETQ 

{ $$CONCEPT; &RightIndexl ) : 1) ) 
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)] 

[roleset  Row 
(vr  TEXTRON) 

(derivation  (FindColumnTableRows  (Prerequisites  Column) 

(Arguments 

{ $$CONCEPT; SltemOrder } : 1 
(FLENGTH 

i $  $CONCEPT ; ThemeL i  s  t } : 1]] 


(*  While  the  derivation  and  realization  of  a  ColumnTable  are 
in  terms  of  its  constituent  Columns,  for  layout  purposes  it  is 
also  necessary  to  describe  the  table  in  terms  of  rows.) 


(itags  (ToLocate  TLColumnTable) 

(NumEntr iesJustifyingARightlndex  5) 
(Hor izontalSeparation  15) 
(VerticalSeparation  8))]]) 


{4} 


(InitROW 

[LAMBDA  NIL 

[concept  ROW 


(*  Edited  by  F.Zdybel  on 
12-Dec-80 . ) 


(*  Note  that  a  Row  in  a  Table  may  have  a  non-linear  structure 
(e.g.,  in  order  to  "compress"  the  width  of  the  table  by 
putting  two  interleaved  rows  together  to  make  a  single  group 
in  the  table.)) 


(specializes  ARRANGEMENT) 

[roleset  NIL 

(mods  Item® ARRANGEMENT) 

(modality  Obligatory) 

(number  ( 2  NIL) ) 

(vr  DISPLAY)] 

[roleset  NIL 

(mods  Height@DISPLAYITEM) 

(derivation  (FindRowHeight  (Prerequisites  Item) 

(Arguments  { $$CONCEPT; Item} ) ))]]]) 


{5} 


(InitROWTABLE 
[LAMBDA  NIL 


(*  Edited  by  F.Zdybel  on 
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16-Dec-80 . ) 

[concept  ROWTABLE 


(*  A  Table  whose  Theme  Is  spread  along  its  rows. 
Hence,  a  column  of  rows.) 


(specializes  TABLE  COLUMN) 

[roleset  NIL 

(mods  Ground@TABLE) 

(derivation  (MakeDef aultTableGround) ) ] 

[roleset  NIL 

(mods  ThemeList@TABLE) 

(derivation  (FindTableThemeElementlndicators  (Prerequisites 

Application) 

(Arguments 

{ $$CONCEPT; Application^ ) ) )  1 

(PROG  [(row  [roleset  Row 

(mods  Group@TABLE  Item@COLUMN) 

(vr  TEXTRON) ] ] 

[roleset  Header 

(diffs  (atomval  row) ) 

(modality  Obligatory) 

(derivation  (MakeTableHeaderRow  (Arguments 

{ $$CONCEPT; sThemeListl : 1 
{ $$CONCEPT; SGround } : 1) ) ) 

(f illwhenmade) ] 

(*  The  Header  is  the  row  of  display  labels  that  runs  across 
the  top  of  the  RowTable.) 


[roleset  Foot 

(diffs  (atomval  row) ) 

(derivation  (MakeTableFoot?  (Arguments  (FLENGTH 

{ $  $CONCEPT ; &En  t i ty L i s  t } : 1) 

{ $$CONCEPT; SHeader 1 ; 1) ) 


)] 


(*  A  very  tall  table  might  want  another  index  running  along 
the  bottom  edge . ) 


[roleset  Entry 

(diffs  (atomval  row)) 

(modality  Obligatory) 

(number  (1  NIL)) 

(derivation  (MakeTableEntryRows  (Arguments 

{ $$CONCEPT; SEntityListl : 1 
{ $  $CONCEPT  j  SThemeL i s  t } : 1 
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{ $$CONCEPT ; SGround } : 1) ) ) 

(f illwhenmade) ] ) 

[roleset  NIL 

(mods  ItemOrder @ ARRANGEMENT ) 

(derivation  (MakeTableRowOrderList  (Arguments  { $$CONCEPT; SHeader } : 1 

{ $$CONCEPT; SEntry } ( 
NLSETQ 

{ $$CONCEPT ; Foot } ) :1) ) 

)1 

[roleset  Column 
(vr  TEXTCOLUMN) 

[derivation  (FindRowTableColumns  (Prerequisites  Row) 

(Arguments 

{ $$CONCEPT;&ItemOrder } : 1 
(FLENGTH 

{ $$CONCEPT;ThemeList} : 1] ] 


(*  While  the  derivation  and  realization  of  a  RowTable  are  in 
terms  of  its  constituent  Rows,  for  layout  purposes  it  is  also 
necessary  to  describe  the  table  in  terms  of  columns.) 


(itags  (ToLocate  TLRowTable) 

(NumEntr iesJustifyingAFoot  10) 
(HorizontalSeparation  10) 
(VerticalSeparation  10))]]) 


{6} 

(InitTABLE 
[LAMBDA  NIL 

[concept  TABLE 


(specializes  ARRANGEMENT) 
[roleset  NIL 

(mods  Application@DISPLAY) 
(number  1)] 


(*  For  the  moment  we  will  restrict  the  Application  Role  of 
table  to  take  a  single  ITemplate  as  filler,  and  the  derivation 
procedures  will  enforce  this  restriction  via  their  DECL,  even 
if  KL-ONE  per  se  does  not.) 


(roleset  Group 
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(mods  I tem@ ARRANGEMENT) 
(vr  ARRANGEMENT) ] 


(*  Groups  are  either  the  columns  or  rows  of  the  Table. 

Just  which  depends  on  how  one  wishes  to  describe  the  Table:  as 
a  set  of  columns  or  a  set  of  rows.) 


[roleset  EntityList 
(vr  LISTP) 

(derivation  (FindTableEntitylndicators  (Prerequisites  Application) 

(Arguments 

{$$CONCEPT; Application}) ) ) ] 


[roleset  ThemeList 
(vr  LISTP) 

(der ivation  (FindTableThemeElementlndicatorsAndOr ientation 
(Prerequisites  Application) 

(Arguments  } $$CONCEPT; Application) 

{ $ SCONCE PT; SEntityList} : 1) ) ) 


(f illwhenmade) ] 


(*  A  list  of  the  highest  level  slots  (domain  world  Roles) 
indicated  in  the  ITemplates  filling  the  application  Role. 
The  ordering  corresponds  to  the  ordering  of  the  entries  in 
each  group  of  the  eventual  Table.) 

11) 


{7} 


(Ini tTEXTCOLUMN 
[LAMBDA  NIL 

[concept  TEXTCOLUMN 


(specializes  COLUMN) 
[roleset  NIL 

(mods  Item@COLUMN) 
(vr  TEXT)  HI) 


(*  Edited  by  F.Zdybel  on 
25-Jul-80.) 

(*  A  Column  whose  items  are 
Texts . ) 


{8} 


(InitTEXTROW 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

25-Jul-80.) 

(concept  TEXTRON 
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(*  A  Row  whose  items  are 
Texts . ) 

(specializes  ROW) 

[roleset  NIL 
(mods  Item@ROW) 

(vr  TEXT) ]]1) 


{9} 

(InitTableConcepts 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

25-Jul-80.) 

(*  Initializes  Concepts  having 
to  do  with  Tables.) 

(Ini t ARRANGEMENT ) 

(InitROW) 

(InitCOLUMN) 

(InitTEXTROW) 

(Ini tTEXTCOLUMN ) 

(InitTABLE) 

(InitROWTABLE) 

(Ini tCOLUMNTABLE ] ) 


(RPAQQ  AIPSTABLEDERIVATIONFNS  (FindColumnTableRows  FindColumnWidth 

FindRowHeight 
FindRowTableColumns 
FindTableEntity Indicators 
FindTableThemeElementlndicators 
FindTableThemeElementlndicatorsAndOr ientation 

MakeDef aultTableGround 
MakeTableColumnOrderList 
MakeTableEntryColumns 
MakeTableEntryRows 
MakeTableFoot? 
MakeTableHeaderRow 
MakeTableLef t Index 
MakeTableRightlndex? 
MakeTableRowOrderList) ) 

(DEFINEQ 


{10} 


(FindColumnTableRows 

[ D LAMBDA  ( (columnList  (LST  OF  IndividualConcept 

(SATISFIES  (HomogenousConceptListP  columnList 

'COLUMN) ) ) ) 

(numRows  FIXP) 

(RETURNS  (LST  OF  IndividualConcept  (SATISFIES 
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(HomogenousConceptListP  VALUE: 1  'ROW) ) ) ) ) 

(*  Edited  by  F.Zdybel  on 
18-Dec-80.) 

(*  Figures  out  the  rows  of  a  table  that  has  been  built  in 
terms  of  columns.) 


(for  rowNum  from  1  to  numRows  bind  itemOrderList 

collect  (Make  ROW  Item  itemOrderList_(for  columnDescr 

in  columnList 
collect  (FNTH 
{columnDescr ; ItemOrder} : 1 
rowNum) : 1) 

ItemOrder  itemOrderList))]) 


Ul! 


(FindColumnWidth 

[ D LAMBDA  ((itemList  (LST  OF  IndividualConcept 

(SATISFIES  (HomogenousConceptListP  itemList 

'DISPLAY) ) ) ) 


(RETURNS  (LST  OF  FIXP) ) ) 


(*  Edited  by  F.Zdybel  on 
12-Dec-80.) 


(*  Determines  the  width  of  a  column  of  Displays  by  finding  the 
maximum  width  of  the  items.) 


< (APPLY  'MAX  { itemList; SWidth}) 
>1) 


{12} 


(FindRowHeight 

[ DLAMBDA  ((itemList  (LST  OF  IndividualConcept 

(SATISFIES  (HomogenousConceptListP  itemList 

'DISPLAY) ) ) ) 


(RETURNS  (LST  OF  FIXP))) 


(*  Edited  by  F.Zdybel  on 
12- Dec- 80.) 


(*  Determines  the  height  of  a  row  of  Displays  by  finding  the 
maximum  height  of  the  items.) 


< (APPLY  'MAX  { itemList; SHeight}) 
>1) 
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{13} 


(FindRowTableColumns 

[ D LAMBDA  ( (rowList  (LST  OF  IndividualConcept  (SATISFIES 

(HomogenousConceptListP  rowList  'ROW) ) ) ) 
(numColumns  FIXP) 

(RETURNS  (LST  OF  IndividualConcept 

(SATISFIES  (HomogenousConceptListP  VALUE :1 

'COLUMN) ) ) ) ) 

(*  Edited  by  F.Zdybel  on 
12-Dec-80 . ) 

(*  Figures  out  the  columns  of  a  table  that  has  been  built  in 
terms  of  rows.) 


(for  columnNum  from  1  to  numColumns  bind  itemOrderList 

collect  (Make  COLUMN  Item  itemOrderList_ (for  rowDescr  in  rowList 

collect  (FNTH 
{ rowDescr ; I temOr der } : 1 

columnNum) : 1) 

ItemOrder  itemOrderList))]) 


{14} 


(FindTableEntitylndicators 

[ D LAMBDA  ( ( tableApplicationList  (LST  OF  IndividualConcept)  (SATISFIES 

( 


tableApplicationList: 1  df  'ITEMPLATE  and  "tableApplicationList: : 1) ) ) 
(RETURNS  (LST  OF  (LST  OF  IndividualConcept))  (SATISFIES 

( 


HomogenousConceptListP  VALUE: 1  'CONCEPT) ) ) ) 


<  { tableApplicationList: l;ConceptGroup} 


(*  Edited  by  F.Zdybel  on 
4-Dec-80 . ) 

(*  Gets  the  ConceptGroup 
fillers  of  the  template  filling 
the  Application  Role.) 

>1) 


{15} 


(FindTableThemeElementlndicators 

[ D LAMBDA  ((tableApplicationList  (LST  OF  IndividualConcept) 

(SATISFIES  tableApplicationList: 1  df  'ITEMPLATE 
and  "tableApplicationList::!))) 

(RETURNS  (LST  OF  (LST  OF  IndividualConcept)) 

(SATISFIES  HomogenousConceptListP  VALUE:1  'ROLE)))) 


129 


Source  File:  AIPSTABLE 


Bolt  Beranek  and  Newman  Inc 


Report  No.  475? 


(*  Edited  by  F.Zdybel  on 
4-Dec-80 . ) 

(*  Gathers  together  the  roles  meta-indicated  by  the  ITemplate 
filling  the  Application  Role.  Gives  special  treatment  to  any 
Role  name  Name,  by  placing  it  first  in  the  list.) 


(PROG 


(  (themeRolelndicatorList  { tableApplicationList : 1; RoleGroup} ) 
nameRolelndicator ) 

(if  nameRoleIndicator_[for  rolelndicator 

in  themeRolelndicatorList 
thereis 
( 'Name) 
fmemb 

(KLFindNamesOfRole 

(KLGetMetaDescr ibedEntity 
rolelndicator 
(KLGetNamedContext 

’ AIPSDOMAINMETA] 


then  themeRoleIndicatorList_ 

<nameRoleIndicator  ! (DREMOVE  nameRolelndicator 

themeRolelndicatorList) 


>) 

(RETURN  <  themeRolelndicatorList  >))]) 


{16} 


(FindTableThemeElementlndicatorsAndOr ientation 

[DLAMBDA  ((tableApplicationList  (LST  OF  IndividualConcept) 

(SATISFIES  (tableApplicationList: l  df  'ITEMPLATE 
and  "tableApplicationList :: 1) ) ) 
(tableEntitylndicatorList  (LST  OF  IndividualConcept) 

(SATISFIES  HomogenousConceptListP 

tableEntitylndicatorList  'CONCEPT) ) ) 

(RETURNS  (LST  OF  (LST  OF  IndividualConcept 

(SATISFIES  (HomogenousConceptListP 

VALUE : 1 
'ROLE] ) ) 

(*  Edited  by  F.Zdybel  on 
4-Dec-80 . ) 

(*  Gathers  together  the  role  meta-indicators  on  the  ITemplate 
filling  the  Application  Role.  Gives  special  treatment  to  the 
indicator  of  any  Role  named  Name,  by  placing  it  first  in  the 
list.  Finally  compares  the  number  of  entities  in  the  table 
with  the  number  of  theme  elements  and  decides  whether  the 
Table  shold  become  a  RowTable  or  a  ColumnTable . ) 
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(PROG 


( (themeRolelndicatorList  { tableApplicationList: l;RoleGroup} ) 
nameRolelndicator  temp) 

(if  nameRoleIndicator_[for  rolelndicator 

in  themeRolelndicatorList 
thereis 
( 'Name) 
fmemb 

(KLFindNamesOfRole 

(KLGetMetaDescr ibedEntity 
rolelndicator 
(KLGetNamedContext 

' AIPSDOMAINMETA] 


then  themeRoleIndicatorList_ 

<nameRoleIndicator  ! (DREMOVE  nameRolelndicator 

themeRolelndicatorList) 


>) 

(if  (FLENGTH  tableEntitylndicatorList)  It  temp_ (FLENGTH 

themeRolelndicatorList) 

and  temp  gt  3 

then  $$PROTOTYPE  'COLUMNTABLE 
else  $$PROTOTYPE_  ^ROWTABLE) 

(RETURN  <  themeRolelndicatorList  >))]) 


{17} 


(MakeDefaultTableGround 

[ DLAMBDA  ((RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  (VALUE:1  df 

'VIEWSURFACE) ) ) ) 

(*  Edited  by  F.Zdybel  on 
13-Nov-80.) 

(*  Make  a  ViewSurface  of  random  size  so  that  at  least  all  of 
the  Displays  in  the  Table  can  have  their  Ground  roles  filled. 

The  dimensions  of  the  ViewSurface  can  be  changed  later.) 


; 


4 


< (Make  VIEWSURFACE  Continuum  (Make  CARTES I ANSYSTEM) 

Boundary 

(Make  RECTANGLE  LowerLeft  <0  0>  UpperRight  <100  100>)) 

>1) 


{18} 


(MakeTableColumnOrderList 

[DLAMBDA  ( (leftlndex  IndividualConcept 

(SATISFIES  (leftlndex  df  'COLUMN))) 
(entryColumnList  (LST  OF  IndividualConcept) 

(SATISFIES  HomogenousConceptListP  entryColumnList 

'COLUMN))) 


(rightlndex  (ONEOF  (IndividualConcept 
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(SATISFIES  (rightlndex  df  'COLUMN))) 
NIL)  ) 

(RETURNS  (LST  OF  (LST  OF  IndividualConcept)) 

(SATISFIES  HomogenousConceptListP  VALUE: 1  'COLUMN)))) 

(*  Edited  by  F.Zdybel  on 
13-Nov-80 . ) 


(*  Produces  the  list  that  imposes  the  correct  ordering  on  the 
Columns  of  the  ColumnTable.  Hopefully  entryColumnList  already 
reflects  the  ordering  embedded  in  the  ColumnTable 1 s 
Application. ) 


(PROG  ((result  (<leftlndex  !  <  !  entryColumnList>>) ) ) 
(if  rightlndex 

then  result_  <  ! I  result  rightlndex>) 
(RETURN  <result>) ) ] ) 


{19} 


(MakeTableEntryColumns 

[DLAMBDA  ( ( tableEnti tyList  (LST  OF  IndividualConcept) 

(SATISFIES  (HomogenousConceptListP  tableEntityList 

'CONCEPT) ) ) 

( tableThemeList  (LST  OF  IndividualConcept) 

(SATISFIES  (HomogenousConceptListP  tableThemeList 

'ROLE) ) ) 

(tableGround  IndividualConcept  (SATISFIES  tableGround  df 

'VIEWStJRFACE)  ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES 

(HomogenousConceptListP 
VALUE  'COLUMN) ) ) ) 

(*  Edited  by  F.Zdybel  on 
4-Dec-80 . ) 


(*  Produces  the  Columns  in  a  ColumnTable; 
one  Column  for  each  element  of  EntityList. 

Each  Column  contains  one  Item  for  each  element  in  ThemeList. 
Fills  the  ItemOrder  Role  of  the  Table  to  indicate  the  ordering 
of  the  Columns,  and  fills  the  ItemOrder  Role  of  each  Column  to 
indicate  the  ordering  of  the  items  in  the  Column.) 


(for  entitylndicator  in  tableEntityList 

bind  itemOrder  ( itemPrototype  _(KLGetConceptName  (KLFindVRsOfRole 


Item@{ $$PROTOTYPE;Entry } :1) :1) ) 

collect  (Make  TEXTCOLUMN  Application 

(Make  ITEMPLATE  ConceptGroup  entitylndicator  RoleGroup 
tableThemeList) 
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Item  itemOrder_(for  themeElementlndicator 

in  tableThemeList 

collect  (APPLY*  'Make  i temPrototype 
' Appl ication 
(Make  ITEMPLATE 
ConceptGroup 
entity Indicator 
RoleGroup 

themeElementlndicator) 

'Ground  tableGround) ) 

ItemOrder  itemOrder  Ground  tableGround))]) 


{20} 


(MakeTableEntryRows 

[DLAMBDA  ( (tableEntityList  (LST  OF  IndividualConcept) 

(SATISFIES  (HomogenousConceptListP  tableEntityList 
“CONCEPT) ) ) 

(tableThemeList  (LST  OF  IndividualConcept) 

(SATISFIES  (HomogenousConceptListP  tableThemeList 
“ROLE) ) ) 

(tableGround  IndividualConcept  (SATISFIES  tableGround  df 

“VIEWSURFACE) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES 

(HomogenousConceptListP 
VALUE  “ROW) ) ) ) 

(*  Edited  by  F.Zdybel  on 
4-Dec-80 . ) 

(*  Produces  the  Rows  in  a  RowTable;  one  Row  for  each  element 
of  EntityList.  Each  Row  contains  one  Item  for  each  element  in 
ThemeList.  Fills  the  ItemOrder  Role  of  the  Table  to  indicate 
the  ordering  of  the  Rows,  and  fills  the  ItemOrder  Role  of  each 
Row  to  indicate  the  ordering  of  the  items  in  the  Row.) 


(for  entitylndicator  in  tableEntityList 

bind  itemOrder  ( i temPrototype  _ (KLGetConceptName  (KLFindVRsOfRole 

Item@{ $$PROTOTYPE; Entry} :1) :1) ) 

collect  (Make  TEXTRON  Application  (Make  ITEMPLATE  ConceptGroup 

entitylndicator  RoleGroup 
tableThemeList) 

Item  itemOrder_( for  themeElementlndicator 

in  tableThemeList 

collect  (APPLY*  'Make  itemPrototype 
' Application 
(Make  ITEMPLATE 
ConceptGroup 
entitylndicator 
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RoleGroup 

themeElement Indicator) 

’Ground  tableGround) ) 

ItemOrder  itemOrder  Ground  tableGround))]) 


{21} 

(MakeTableFoot? 

[DLAMBDA  ( (numberOf Rows  NUMBERP) 

(tableHeader  IndividualConcept 

(SATISFIES  tableHeader  df  'ROW) ) 

(RETURNS  (LST  OF  IndividualConcept) 

(SATISFIES  VALUE: 1  df  'ROW))) 

(*  Edited  by  F.Zdybel  on 
13-Nov-80.) 

(*  Decides  whether  or  not  to  create  a  Foot  for  a  RowTable  by 
comparing  the  numberOfRows  with  the  value  of  the 
NumEntr iesJustifyingAFoot  tag.  The  Foot,  if  created,  is  a  copy 
of  the  Header.) 


(PROG 


((tableGround  (CAR  { tableHeader jGround })) ) 

(if  [IGEQ  numberOfRows  (CAR  (KLFindIData  $$CGNCEPT  ’ ( 

NumEntr iesJustifyingAFoot] 

then  (RETURN 


< [Make  TEXTROW  Ground  tableGround  Item 

(for  headerltem  in  { tableHeader ; Item} 

collect  (Make  TEXT  Ground  tableGround  String 
(CAR  fheaderltemjString} ] 


>) 


else  (StopFill) ) ) ] ) 


{22} 

(MakeTableHeaderRow 

[DLAMBDA  ( (tableThemeList  (LST  OF  IndividualConcept) 

(SATISFIES  (HomogenousConceptListP  tableThemeList 

'ROLE) ) ) 

(tableGround  IndividualConcept  (SATISFIES  tableGround  df 

'VIEWSURFACE) ) 

(RETURNS  (LST  OF  IndividualConcept) 

(SATISFIES  VALUE: 1  df  'ROW))) 

(*  Edited  by  F.Zdybel  on 
7-Dec-80 . ) 

(*  Derives  the  Header  Row  for  a  RowTable,  by  going  through  the 
Roles  meta-indicated  by  the  elements  of  themeList  and  taking 
the  most  specific  names  of  those  roles.) 
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< (Make  TEXTRON  Item  itemOrder_(for  roleMetalndicator 

in  tableThemeList 
collect 
(Make 

TEXT  String 
[MKSTRING 
(CAR 

(KLPindNamesOf Role 

(KLGetMetaDescr ibedEntity 
roleMetalndicator 
(KLGetNamedContext 

' AIPSDOMAINMETA] 
Ground  tableGround) ) 

ItemOrder  itemOrder  Ground  tableGround) 

>]) 


{23} 


(MakeTableLe ft Index 

[ DLAMBDA  ((tableThemeList  (LST  OF  IndividualConcept) 

(SATISFIES  (HomogenousConceptListP  tableThemeList 

"ROLE) ) ) 

(tableGround  IndividualConcept  (SATISFIES  tableGround  df 

"VIEWSURFACE) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  VALUE: 1  df 

"COLUMN) ) ) 
(*  Edited  by  F.Zdybel  on 
7-Dec-80 . ) 

(*  Derives  the  Leftlndex  for  a  ColumnTable,  by  going  through 
the  Roles  me ta- indicated  by  the  elements  of  themeList  and 
taking  the  most  specific  names  of  those  roles.) 


< (Make  TEXTCOLUMN  Item  itemOrder_(for  roleMetalndicator 

in  tableThemeList 
collect 
(Make 

TEXT  String 
[MKSTRING 
(CAR 

(KLFindNamesOfRole 

(KLGetMetaDescr ibedEn  t i ty 
roleMetalndicator 
(KLGetNamedContext 
’AIPSDOMAINMETA] 
Ground  tableGround) ) 

ItemOrder  itemOrder  Ground  tableGround) 
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>1) 


124} 

(MakeTableRightlndex? 

[ D LAMBDA  ( (numberOfColumns  NUMBERP) 

(tableLeftlndex  IndividualConcept  (SATISFIES  tableLeftlndex  df 

'COLUMN) ) 

(RETURNS  (LST  OF  IndividualConcept)  (SATISFIES  VALUE :1  df 

'COLUMN) ) ) 

(*  Edited  by  F.Zdybel  on 
13-Nov-80.) 

(*  Decides  whether  or  not  to  create  a  Rightlndex  for  a 
ColumnTable  by  comparing  the  numberOfColumns  with  the  value  of 
the  NumEntr iesJustifyingARightlndex  tag. 

The  Rightlndex,  if  created,  is  a  copy  of  the  Leftlndex.) 


(PROG 


( ( tableGround  (CAR  { tableLef tlndexjGround} )) ) 

(if  [IGEQ  numberOfColumns  (CAR  (KLFindIData  $$CONCEPT  ’( 

NumEntr iesJustifyingARightlndex] 

then  (RETURN 

< (Make  TEXTCOLUMN  Ground  tableGround  Item 

(for  leftlndexltem  in  { tableLef tlndex; Item} 


>) 


collect  (Make  TEXT  Ground  tableGround  String 
(CAR  {leftIndexItem;String} ] 


else  (StopFill) ) ) ] ) 


{25} 

(MakeTableRowOrderList 

[DLAMBDA  ( (headerRow  IndividualConcept  (SATISFIES  (headerRow  df  'ROW) ) ) 
(entryRowList  (LST  OF  IndividualConcept) 

(SATISFIES  (HomogenousConceptListP  entryRowList  'ROW))) 
(footRow  (ONEOF  (IndividualConcept 

(SATISFIES  (footRow  df  'ROW))) 

NIL)) 

(RETURNS  (LST  OF  (LST  OF  IndividualConcept) ) 

(SATISFIES  (HomogenousConceptListP  VALUE: 1  'ROW)))) 

(*  Edited  by  F.Zdybel  on 
13-Nov-80 . ) 

{*  Produces  the  list  that  imposes  the  correct  ordering  on  the 
Rows  of  the  RowTable.  Hopefully  entryRowList  already  reflects 
the  ordering  embedded  in  the  RowTable's  Application.) 
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(PROG  ((result  (<headerRow  !  <  1  entryRowList>>) ) ) 
(if  footRow 

then  result_  <  1J  result  footRow>) 

(RETURN  <result>) ) ] ) 

) 

(RPAQQ  AIPSTABLETOLOCATEFNS  (TLColumnTable  TLRowTable) ) 
(DEPINEQ 


{26} 

(TLColumnTable 

[ D LAMBDA  (  (tableDescr  IndividualConcept  (SATISFIES  tableDescr  df 

“ COLUMNTABLE ) ) 

(tableLoc  (ONEOF  NIL  (LST  OF  FIXP  (SATISFIES  “tableLoc: : 2) ) ) ) ) 

(*  Edited  by  F.Zdybel  on 
17-Dec-80 . ) 

(*  Locates  the  interior  elements  of  a  ColumnTable,  given  the 
location  of  the  ColumnTable ’ s  lower  left  corner. 

If  no  location  is  given,  the  location 
(0,0)  is  assumed) 


(if  “tableLoc 

then  tableLoc  * ( 0  0) ) 

(for  columnDescr  Tn  (CAR  { tableDescr ; SltemOrder } ) 
bind  (currentX  _  tableLoc: 1) 
currentY 

(bottoraY  _  tableLoc: 2) 

[ver tSeparation  _(CAR  (KLFindIData  tableDescr  ' ( 

Ver ticalSeparationl 

[hor izSeparation  _(CAR  (KLFindIData  tableDescr  ' ( 

Hor izontalSeparation] 

(rowHeightList  _  { tableDescr ; SRow; SHeight} ) 
do  (currentY_bottomY) 

(SendMessage  columnDescr  'ToLocate  <currentx  currentY>) 

(for  itemDescr  in  (REVERSE  (CAR  {columnDescr ; I temOrder }) ) 
as  rowHeight  in  (REVERSE  rowHeightList) 
do  (SendMessage  itemDescr  'ToLocate  <currentX  currentY>) 
(currentY__cur  rentY+rowHeight+ver tSeparation) ) 

(currentX  currentX* (CAR  { columnDescr ; SWidth} ) +hor izSeparation) 
finally  (KLCHangeRoleValue  (KLFindOneNamedlnstanceRole  (CAR 

{ tableDescr ;Ground;Boundary} ) 

' UpperRight) 

<currentx  cur rentY>) ) ] ) 


{27} 
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(TLRowTable 

[DLAMBDA  ( (tableDescr  IndividualConcept  (SATISFIES  (tableDescr  df 

'ROWTABLE) ) ) 

(tableLoc  (ONEOF  NIL  (LST  OF  FIXF  (SATISFIES  “tableLoc: : 2) ))) ) 

(*  Edited  by  F.Zdybel  on 
17-Dec-80 . ) 

(*  Locates  the  interior  elements  of  a  RowTable,  given  the 
location  of  the  RowTable 's  lower  left  corner. 

If  no  location  is  given,  the  location 
(0,0)  is  assumed.) 


) 


(if  “tableLoc 

then  tableLoc_' (0  0)) 

(for  rowDescr  in  (REVERSE  { tableDescr ; SltemOrder }: 1) 
bind  (leftX  _  tableLoc: 1) 
currentx 

(currentY  _  tableLoc: 2) 

[vertSeparation  __(CAR  (KLFindIData  tableDescr  ' ( 

VerticalSeparation] 

[hor izSeparation  _(CAR  (KLFindIData  tableDescr  ' ( 

Hor izontalSeparation] 

(columnWidthList  _  { tableDescr ; ^Column; &Width} ) 
do  currentX_leftX 

(SendMessage  rowDescr  'ToLocate  <currentX  currentY>) 

(for  itemDescr  in  {rowDescr ; I temOrder }: 1  as  columnWidth 
in  columnWidthList  do  (SendMessage  itemDescr  'ToLocate 

<currentX  currentY>) 

currentX_ 

cur rentX+columnWidth+hor izSeparation) 
cur rentY_currentY+{ rowDescr ; SHeight} : 1+vertSeparation 
finally  (KLChangeRoleValue  (KLFindOneNamedlnstanceRole  (CAR 

{ tableDescr ;Ground;Boundary} ) 

' UpperRight) 

<currentx  currentY>) ) ] ) 


(ADDTOVAR  CKLONEFILES  AIPSTABLE) 
STOP 
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13.  SOURCE  PILE:  AIPSTEMP 


FindMostSpecializedConcept . 17 

HomogenousConceptListP . 18 

InitAIPS . 1 

InitDISPLAYITEM . 2 

InitDISPLAYITEMABSTRACTION . 3 

Ini  tDISPLAYSURFACE . 4 

Ini  tHOMOGENEOUS  REG  I  ON . 5 

I  n  i  t  INVI S I BLESURF  ACE . 6 

Ini  tMiddleEar  th . 8 

InitMOTILEDISPLAYITEM . 7 

Ini  tPLANESURF  ACE . 9 

Ini  tRECTANGULARREG  ION . 10 

InitSTABILEDISPLAYITEM . 11 

InitUSERMODEL . 12 

InitUserModel . 13 

InitViewingOrganizationModel . . . .16 

I  n  i  t  VI EWSURF  ACE . 14 

InitVISIBLESURFACE . 15 

TLDisplayltem . 19 

TLDisplaySur  face . 20 

TLPlaneSur  face . 21 

TMDisplaySurface . 22 

TMRegionNumber . 23 

TSPlaneSur  f  ace . 24 

TSRectangularRegion . 25 
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(FILECREATED  "  2-Feb-81  03:43:55"  <NEWAIPS>AIPSTEMP . . Ill  18702 

changes  to:  InitDISPLAYSURFACE  AIPSTEMPCOMS  AIPSTEMPUTILITYFNS 
AIPSTEMPTOMAKEFNS  TMRegionNumber 

previous  date:  "31-Jan-81  04:23:25"  <NKWAIPS>AIPSTEMP. . 110) 


(PRETTYCOMPRINT  AIPSTEMPCOMS) 

(RPAQQ  AIPSTEMPCOMS  [  (FNS  *  AIPSTEMPINITFNS ) 

(FNS  *  AIPSTEMPUTILITYFNS) 

(FNS  *  AIPSTEMPTOLOCATEFNS ) 

(FNS  *  AIPSTEMPTOMAKEFNS) 

(FNS  *  AIPSTEMPTOS I ZEFNS ) 

(DECLARE:  DONTE VAL  @ LOAD  EVAL@COMPILEWHEN 
(NOT  (BOUNDP  (QUOTE  BMGCOMS) ) ) 

DONTCOPY 

(FILES  <FONTWORK>BMGRECORDSANDVARS. .0) ) 
(ADDVARS  (CKLONEFILES  AIPSTEMP) ) 

(DECLARE:  DONTEVAL @ LOAD  DOEVAL0COMPILE  DONTCOPY 
COMPILERVARS  (ADDVARS  (NLAMA) 

(NLAML) 

(LAMA] ) 

(RPAQQ  AIPSTEMPINITFNS  (InitAIPS  InitDISPLAYITEM  I n i tD I S PLAY I TEMABSTRACT I ON 

Ini tDISPLAYSURFACE  Ini tHOMOGENEOUSREGION 
InitINVISIBLESURFACE  InitMOTILEDISP LAY I TEM 
InitMiddleEar th  InitPLANESURFACE 
Ini tRECT ANGUL ARREG I ON 
InitSTABILEDISPLAYITEM  InitUSERMODEL 
InitUserModel  InitVIEWSURFACE 
InitVISIBLESURFACE 
InitViewingOrganizationModel ) ) 

(DEFINEQ 


Ul 

(InitAIPS 

(LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

1 l-Nov-80 . ) 

(*  Initializes  the 
Presentation,  Viewing 
Organization  and  Realization 
Models  of  AIPS . ) 

(InitDISPLAYITEM) 

(InitDISPLAYITEMABSTRACTION) 

(InitUserModel) 
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(Ini tCoo  rdinateSys  temConcep  t  s ) 
(InitTimeSystemConcepts) 

(Ini tCommonDoma i nMode 1 ) 
(InitNavalDomainModel) 
(InitReali2ationModel) 
(InitPresentationModel) 

(Ini tNTDSConcep  t  s ) 
(InitViewingOrganizationModel) 
(InitDeviceConcepts] ) 


(InitDISPLAYITEM 
[LAMBDA  NIL 

[concept  DISPLAYITEM 


[2] 

[2] 

[2] 


(*  Edited  by  J. Gibbons  on 
20-Jan-81. ) 


(*  A  Display  Item  can  be  either  a  Presentation  or  a  Display 
Form.  Thus  decomposition  of  Presentations  occurs  until  the 
level  of  Display  Forms  is  reached.) 


rroleset  Location 
(vr  LISTP) 

(defaultf iller  <0  0>)] 


(*  Relates  the  location  of  the  origin  of  the  abstract  figure 
(in  the  case  of  Displays  and  DisplayComposites)  or  is  further 
differentiated  or  modified  in  the  case  of  DisplayAtoms 
(e.g.:  the  EndPoint  Role  of  LINE.)) 


[roleset  Size 
(vr  NUMBERP ) 
(defaultf iller  1)] 


(*  Indicates  a  scaling  transformation  which  is  applied  to  the 
abstract  figure  before  translation  and  after  rotation 
(in  the  case  of  Displays  and  DisplayComposites)  or  is  further 
modified  or  differentiated  in  the  case  of  DisplayAtoms 
(e.g.:  the  SemiMa jorAxis  and  SemiMinorAxis  Roles  of  ELLIPSE.) 
The  filler  is  always  a  positive  number  greater  than  or  equal 
to  one  since  we  do  not  ever  wish  to  scale  abstract  figures 
down,  and  in  the  case  of  DisplayAtoms  we  are  specifying  size 
information  in  terms  of  pixels.) 
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[roleset  Orientation 
(vr  NUMBERP) 
(defaultf iller  0)] 


(*  Indicates  a  rotational  transformation  which  is  applied  to 
the  abstract  figure  before  translation  and  scaling 
(in  the  case  of  Displays  and  DisplayComposites)  or  is  further 
modified  in  the  case  of  DisplayAtoms  (e.g.:  the  Orientation 
Role  of  ELLIPSE.)  The  filler  is  expected  to  indicate  in  terms 
of  a  number  of  degrees  between  -180  and  180  inclusive.) 


[roleset  Width 
(vr  NUMBERP) ] 
[roleset  Height 
(vr  NUMBERP)] 


(*  These  Roles  are  used  by  layout  processes  that  operate  at 
the  level  of  the  Viewing  Organization  Model.) 


[roleset  Envelope 
(vr  CLOSEDCURVE) ] 


(*  This  role  is  useful  for  characterizing  the  area  subsumed  by 
a  Display  Item.) 


(itags  (ToLocate  TLDisplayltem) ) ] I ) 


( In i tDISPLAYITEMABSTRACTION 
[LAMBDA  NIL 

[concept  DISPLAYITEMABSTRACTION 


(specializes  ABSTRACTION) 
[roleset  FixedComponent 
(number  (1NIL)) 

(vr  DISPLAYFORM) ] 


[3] 

13) 

[3] 


(*  Edited  by  J. Gibbons  on 
ll-Nov-80 . ) 

(*  Abstractions  of  Displayltems 
are  individuals  of  this 
concept . ) 
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(*  Any  visible  components  of  the  Displayltem  that  are  fixed  in 
terms  of  identity  and  location  (e.g.s  the  circle  and  dot  of  an 
NTDS  friendly  ship  symbol.)) 


(itags  (ToDraw  TDDisplayltemAbstraction) ) ] ] ) 


(InitDISPLAYSURFACE 
[LAMBDA  NIL 

[concept  DISPLAYSURFACE 


[4] 

[4] 

[4] 


(*  Edited  by  J. Gibbons  on 
2-Feb-81. ) 


(*  A  Viewsurface  that  represents  an  actual  chunk  of  bitmap 
memory,  either  visible  or  invisible.) 


(specializes  DISPLAYATOM  VIEWSURFACE) 
[roleset  Plane 

(modality  Obligatory) 

(vr  PLANESURFACE) ] 


(*  Indicates  which  of  the  primal  Display  Surfaces  the  Display 
Surface  is  located  on.) 


[roleset  NIL 

(mods  Height@DISPLAYATOM) 
(mods  Height@VIEWSURFACE) ] 
[roleset  NIL 

(mods  Width@DISPLAYATOM) 
(mods  Width @VI EWSURF ACE ) ] 
[roleset  RegionNumber 
(vr  NUMBERP) 

(derivation  (TMRegionNumber 


(Prerequisites  Plane  Location  Height 
Width  Background) 
(Arguments  { $$CONCEPT;Plane} : 1 

$$CONCEPT; Location} : 1 
$$CONCEPT; Height} : 1 
$$CONCEPT; Width} : 1 
$$CONCEPT ? Background } : 1) ) )  ] 


(*  Establishes  the  correspondence  with  a  BMG  Display  Region 
more  directly  than  via  Nexii.) 
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[roleset  Background 
(modality  Obligatory) 
(vr  SMALLP) 

(defaultf iller  0)] 


[roleset  NIL 

(mods  Continuum@VIEWSURFACE) 
(vr  VIEWSYSTEM) ] 


(*  Sets  the  Background  shade  of 
the  DisplaySurface. ) 


(*  Because  a  DISPLAYSURFACE  represents  actual  map  memory,  the 
coordinate  system  must  be  integer  Cartesian.) 


(itags  (ToDraw  TDDisplaySurf ace) 

(ToLocate  TLDisplaySur face) 
(ToMake  TMDisplaySur face) ) ] 1 ) 


(Ini tHOMOGENEOUS REG I ON 
[LAMBDA  NIL 

[concept  HOMOGENEOU S REG I ON 
(specializes  REGION) 
[roleset  NIL 
(mods  Aperture) 

(number  0)]]]) 


[5] 

[5] 

[5] 


(*  Edited  by  J. Gibbons  on 
5-Sep-80.) 


(InitINVISIBLESURFACE 
[LAMBDA  NIL 

[concept  INVISIBLESURFACE 


[6] 

[6] 

[6] 


(*  Edited  by  J. Gibbons  on 
5-Sep-80. ) 


(*  Here  the  medium  is  constrained  to  be  a  Display  Region  onto 
one  of  the  off-screen  planes  of  bitmap  memory.) 


(specializes  DISPLAYSURFACE) 

[roleset  NIL 

(mods  Plane@DISPLAYSURFACE) 

(vr  [iconcept  HIDDENPLANE  of  PLANESURFACE] ) 
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(itags  (DefaultFiller  “HIDDENPLANE) )  1 )  ] ) 


(InitMOTILEDISPLAYITEM 
[LAMBDA  NIL 

[concept  MOT I LED I S  PL A YI TEM 


[7] 

[7] 

[7] 


(*  Edited  by  J. Gibbons  on 
5-Sep-80.) 


(*  The  purpose  of  this  concept  is  to  mark  which  Display  Items 
can  be  re-located  (those  whose  locations  are  not  significant 
to  their  semantics.)) 


(specializes  DISPLAYITEM) ] ] ) 


(InitMiddleEarth 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

31- Jan- 80 . ) 

(*  Initializes  AIPS  and  the  necessary  Domain  World  Model 
Si-Net  fragments  for  the  Middle  Earth  demonstration  system.) 


[8] 

[8] 

[81 


(InitAIPS ) 

(InitGeographyModel] ) 


[91 

[91 

[91 


( In i tPLANESURFACE 
[LAMBDA  NIL 

[concept  PLANESURFACE 


(specializes  DISPLAYSURFACE) 
[roleset  PlaneNumber 
(modality  Obligatory) 

(vr  NUMBERP) ] 

[roleset  NIL 


(*  Edited  by  J. Gibbons  on 
31-Jan-81 . ) 

(*  Represents  a  plane  of  BMG-11 
bitmap  memory.) 


(mods  Location@DISPLAYSURFACE) 

(derivation  (Copy  (Prerequisites  PlaneNumber) 
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1 


(Binding  (specListRecord  (BMGShowPlane 

{ $$CONCEPT; PlaneNumber} : 1) ) ) 
(Arguments  <specListRecord : 6  specListRecord: 10>) ) ) 


[ roleset  NIL 

(mods  Height@DISPLAYSURFACE) 

(derivation  (Copy  (Prerequisites  PlaneNumber) 

(Binding  (specListRecord  (BMGShowPlane 

{ $$CONCEPT; PlaneNumber] : 1) ) ) 
(Arguments  1+specListRecord: 12-specListRecord : 10) ) 

)  ] 

[roleset  NIL 

(mods  Width@DISPLAYSURFACE) 

(derivation  (Copy  (Prerequisites  PlaneNumber) 

(Binding  (specListRecord  (BMGShowPlane 

{ $$CONCEPT;PlaneNumber } : 1) ) ) 
(Arguments  1+specListRecord: 8-specListRecord: 6)))} 
(itags  (ToLocate  TLPlaneSur face) 

(ToSize  TSPlaneSur face) ) ] ] ) 


(Ini t RECT ANGU LARREG ION 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

19-Dec-80 . ) 

[concept  RECTANGULARREG I ON 

(specializes  HOMOGENEOCJSREGION) 

[roleset  NIL 

(mods  Boundary@HOMOGENEOUSREGION) 

(modality  Obligatory) 

(vr  RECTANGLE) 

(derivation  (TMRectangle) ) ] 

[roleset  NIL 

(mods  Con t i nuum@HOMOGENEOUS  REG I ON ) 

(vr  CARTES I ANSYSTEM) ] 

[roleset  NIL 


(mods  Height@HOMOGENEOUSREGION) 

(derivation  (Copy  (Prerequisites  Boundary) 

(Arguments  { $$CONCEPT;Boundary;Height) : 1) ) ) ] 

[roleset  NIL 

(mods  Width@HOMOGENEOUSREGION) 

(derivation  (Copy  (Prerequisites  Boundary) 

(Arguments  { $$CONCEPT;Boundary ;Width} : 1) ) ) ] 
(itags  (ToSize  TSRectangularRegion) ) ] ] ) 


[10] 

[10] 

[10] 


[HI 

Ul] 

[11] 
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(Ini tSTABILEDISPLAYITEM 
[LAMBDA  NIL 

[concept  STABILEDISPLAYITEM 


(*  Edited  by  J. Gibbons  on 
5-Sep-80 . ) 


(*  The  purpose  of  this  concept  is  to  mark  which  display  items 
cannot  be  re-located  (those  whose  locations  are  significant  to 
their  semantics.)) 


(specializes  DISPLAYITEM) ] ] ) 


(InitUSERMODEL 
[LAMBDA  NIL 


[12] 

[12] 

[12] 


(*  Edited  by  J. Gibbons  on 
13-Nov-80.) 


(*  A  simple  collection  of  parameters  reflecting  some  of  a 
user's  preferences  regarding  system  behavior.) 


[concept  USERMODEL 

[roleset  LabelLocality 
(f illwhenmade) 

(vr  ATOM) 

(defaultf iller  'TOP)] 
[roleset  ApertureHeight 
(f illwhenmade) 

(vr  SMALLP) 

(defaultf iller  256) ] 
[roleset  ApertureWidth 
(f illwhenmade) 

(vr  SMALLP) 

(defaultf iller  256)]]]) 


[13] 

[13] 

[13] 

(InitUserModel 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

24-Sep-80 . ) 

(*  Defines  the  UserModel 
concept  and  instantiates  a 
default  model.) 

(InitUSERMODEL) 

(AIPSUSERMODEL  (Make  USERMODEL] ) 
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( In i tVIEWSURFACE 
[LAMBDA  NIL 

[concept  VIEWSURFACE 


(specializes  RECTANGULARREG ION ) 
[roleset  Window 
(number  (0  NIL)) 

(vr  WINDOW) ] 


[14] 

[14] 

[14] 

(*  Edited  by  J. Gibbons  on 
5-Sep-80. ) 

(*  A  View  Surface  is  a  medium 
for  the  arrangement  of  viewable 
objects. ) 


(*  An  aspect  of  View  Surfaces 
is  that  Windows  open  onto 
them. ) ] ] ) 


( In i tVI S IBLESURFACE 
[LAMBDA  NIL 

[concept  VIS IBLESURFACE 


[15] 

[15] 

[15] 


{*  Edited  by  J. Gibbons  on 
5-Sep-80 . ) 


(*  Here  the  medium  is  constrained  to  be  a  Display  Region  onto 
one  of  the  visible  planes.  This  difference  is  reflected  in  a 
different  derivation  of  the  Display  Region  filling  the  Medium 
Role.) 


(specializes  DISPLAYSURFACE) 

[roleset  NIL 

(mods  Plane@DISPLAYSURFACE ) 

(itags  (DefaultFiller  'CONRACSCREEN) ) ] ] ] ) 


[16] 

[16] 

[16] 

(InitViewingOrganizationModel 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

5-Sep-80 . ) 

{*  Initializes  the  Viewing  Organization  Model  of  the  AIPS 
Si-Net.  These  concepts  have  to  do  with  the  syntactic 
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organization  of  display  elements,  and  include  such  as  Window, 
View  Surface,  Display  Form,  etc.) 


(InitMOTILEDISPLAYITEM) 

(Ini tSTAB I LED I S  P LAY ITEM) 

(*  Set  up  all  the  necessary  concepts  for  describing  positions 
on  View  Surfaces,  Display  Surfaces,  etc.) 


( In i tHOMOGENEOUSREGION) 

(Ini tRECTANGULARREG ION ) 

( I n i tVIEWSURFACE ) 

(InitDISPLAYSURFACE) 

(Ini tVI S I BLESURFACE ) 

(InitINVISI BLESURFACE ) 

(Ini tPLANESURFACE )  (*  Sets  up  the  generic 

descriptions  of  the  different 
types  of  Windows.) 

(InitWindowConcepts] ) 

) 


(RPAQQ  AIPSTEMPUTILITYFNS 
HEFINEQ 


(F indMos  tSpec ial i zedConcept 

HomogenousConceptListP) ) 


[17] 

[17] 

[17] 

( F i ndMos  tSpec i a 1 i zedConcept 

[ D LAMBDA  (  (conceptList  (LST  OF  Gener icConcept) ) 

(RETURNS  Gener icConcept) ) 

(*  Edited  by  F.Zdybel  on 
3-Jul-80.) 

(*  Tries  to  find  the  concept  that  is  at  the  lowest  level  of 
the  hierarchy.  Picks  the  first  concept  on  conceptList  that  has 
no  ancestors  on  conceptList.) 


(for  concept  in  conceptList  thereis  (for  otherConcept  in  conceptList 

when  (concept~*otherConceot) 
never  (otherConcept  df  concept) ) ) 


[18] 

[18] 

[18] 
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(HomogenousConceptListP 
[LAMBDA  (cList  restr ictionC) 

(for  element  in  cList  always  element  df  restr ictionC] ) 

) 

(RPAQQ  AIPSTEMPTOLOCATEFNS  (TLDisplayltem  TLDisplaySur face  TLPlaneSurface) ) 
(DEFINEQ 


[19] 

[19] 

[19] 

(TLDisplayltem 

[DLAMBDA  ( (displayltemDescr  IndividualConcept  (SATISFIES 

(displayltemDescr  df 

'DISPLAYITEM) ) ) 

(itemLoc  (LISTP  OF  FIXP  (SATISFIES  "itemLoc: : 2) ) ) ) 

(*  Edited  by  F.Zdybel  on 
16-Dec-80 . ) 

(*  Simply  locates  the 
Displayltem  at  the  specified 
location. ) 

(PROG  (currentLocationRole) 

(if  currentLocationRole_(KLFindOneNamedInstanceRole 

displayltemDescr 

'Location) 

then  (KLChangeRoleValue  cur rentLocationRole  itemLoc) 
else  (KLSatisfyRole  LocationiDISPLAYITEM  displayltemDescr 

<  itemLoo) ) )  ] ) 


(TLDisplaySur face 

[DLAMBDA  ( (displaySur face  IndividualConcept  (SATISFIES  displaySur face  df 

'DISPLAY SURFACE) ) 

(location  (LST  OF  FIXP))) 

(*  Edited  by  J. Gibbons  on 
31- Jan- 81.) 

(if  location  or  ~location_{displaySurface;Location} : 1 
then  (if  location 

then  (SetRoleValues  displaySur face  Location@DISPLAYSURFACE 

<location>) 

(PROG  ( (regionNumber  {displaySurface;RegionNumber} : 1) ) 
(if  regionNumber 

then  (BMGFreeRegionNumber  regionNumber) 
(SetRoleValues  displaySurf ace 

RegionNumber @DISPLAYSURFACE) ) ) 
else  location  {displaySur face; SLocation} : 1) 

(SendMessage  {displaySur face; SBoundary} : 1  'ToLocate  location)) 


Source  File:  AIPSTEMP 


150 


Repot t  No.  4752 


Bolt  Beranek  and  Newman  Inc. 


location] ) 


[21] 

[21] 

[21] 

(TLPlaneSur  f ace 

[DLAMBDA  ( (planeSurface  IndividualConcept  (SATISFIES  planeSurface  df 

" PLANESURFACE ) ) ) 

(*  Edited  by  J. Gibbons  on 
29-Jan-81.) 

(*  The  location  cannot  be  set 
from  outside  but  it  can  be 
derived.) 

(TLDisplaySurface  planeSurface  {planeSurface;&Location} : 1) ] ) 

) 

(RPAQQ  AIPSTEMPTOMAKEFNS  (TMDisplaySur f ace  TMRegionNumber) ) 

(DEFINEQ 


[22] 

[22] 

[22] 


(TMDisplaySur face 

[LAMBDA  (genericDisplaySurface  '  background) 

(*  Edited  by  J. Gibbons  on 
19-Dec-80 . ) 

< (Make  DISPLAYSURFACE  Plane  plane  Background  background  Boundary  ’Fill) 
>1) 


[23] 

[23] 

[23] 

(TMRegionNumber 

[DLAMBDA  ( (planeSurface  IndividualConcept  (SATISFIES  planeSurface  df 

"PLANESURFACE) ) 

(location  (LISTP  OF  FIXP) ) 

(height  FIXP) 

(width  FIXP) 

(background  FIXP) 

(RETURNS  (LISTP  OF  BMGRegionNumber) ) ) 

(*  Edited  by  J. Gibbons  on 
2-Feb-8 1 . ) 

(*  Initializes  a  BMGRegion  on  the  specified  BMGPlane  according 
to  boundary  and  returns  its  BMGRegionNumber.) 


< (BMGDef ineRegion 


151 


Source  File:  AIPSTEMP 


Bolt  Beranek  and  Newman  Inc. 


Report  No.  4752 


< ' PLANE  (planeSurface;&PlaneNumber}:l  'BACKGROUND  background  ’MINX 
location: 1  'MINY  location: 2  'MAXX  location: 1+width-l  'MAXY 
location: 2+height-l>) 

>]) 

) 

(RPAQQ  AIPSTEMPTOSIZEFNS  (TSPlaneSur f ace  TSRectangularRegion) ) 

(DEFINEQ 


[24] 

[24] 

[24] 

(TSPlaneSur face 

[DLAMBDA  ( (planeSur f ace  IndividualConcept  (SATISFIES  planeSurface  df 

'PLANESURFACE) ) ) 

(*  Edited  by  J. Gibbons  on 
28-J an- 81.) 

(*  The  size  of  the  PlaneSurface  cannot  be  set  from  outside  but 
it  can  be  derived  from  the  related  BMGRegion.) 


[PROG  (height  width) 

(if  height_{planeSurface;Height} : 1  and 

width_{planeSurface;Width} : 1 

then  (RETURN  <height  width>) 
else  (RETURN  (TSRectangularRegion  planeSurface 

]planeSurface;&Height| : 1 
{planeSurface; SWidth} : 1] ] ) 


[25] 

[251 

[25] 

(TSRectangularRegion 

[DLAMBDA  ( (rectangularRegion  IndividualConcept  (SATISFIES 

rectangularRegion  df 
'RECTANGULARREGION) ) 

(height  (ONEOF  NIL  FIXP) ) 

(width  (ONEOF  NIL  FIXP))) 

(*  Edited  by  J. Gibbons  on 
28-Jan-81.) 

(if  height  or  width  or  ~ (height_{ rectangularRegion;Height} : 1 

and  width_{r ect angular Reg ion; Width} : 1) 

then  (if  height 

then  (SetRoleValues  rectangularRegion 

Height@RECTANGULARREGION  <height>) 
else  height_{ rectangularRegion; SHeight} : 1) 

(if  width 

then  (SetRoleValues  rectangularRegion 
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W id th@RECTANGULARREGION  <width>) 
else  width_jrectangularRegion;&Width} :1) 

(SendMessage  { rectangularRegion; SBoundary } : 1  'ToSize  height 
width) ) 

<height  width>] ) 

) 

(DECLARE:  DONTE VAL @ LOAD  EVAL0COMP I LEWHEN  (NOT  (BOONDP  (QUOTE  BMGCOMS) ) ) 
DONTCOPY 

(PILESLOAD  <FONTWORK>BMGRECORDSANDVARS . . 0 ) 

) 

(ADDTOVAR  CKLONEFILES  AIPSTEMP) 

STOP 
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(PILECREATED  "  2-Feb-81  03:12:47"  <NEWAIPS>AIPSTODRAW. . 63  38495 


changes  to:  ScrollFastWindow 

previous  date:  "  2-Feb-81  02:48:19"  <NEWAIPS>AIPSTODRAW. .62) 


(PRETTYCOMPRINT  AIPSTODRAWCOMS) 

(RPAQQ  AIPSTODRAWCOMS  ( (*  The  following  are  the  ToDraw  functions.  They  are 

called  only  after  all  locating  has  been  done.) 

(FNS  *  AIPSTODRAWFNS) 

(FNS  *  AIPSTODRAWERASEFNS) 

(DECLARE:  COPYWHEN  (NOT  COMPILEIGNOREDECL) 

(RECORDS  *  AIPSTODRAWRECORDS) ) 

(FNS  *  AIPSTODRAWUTILITYFNS) 

(GLOBALVARS  TDRegion) 

(DECLARE:  DONTEVAL§LOAD  EVAL 0COMP I LEWHEN 
(NOT  (BOUNDP  (QUOTE  BMGCOMS) ) ) 

DONTCOPY 

(FILES  < FONTWORK > BMGRECORDS ANDVARS . . 0 ) ) 
(ADDVARS  ( CKLONEF I LES  AIPSTODRAW) ) ) ) 

[DECLARE:  DONTEVAL @ LO AD  DONTCOPY 


(*  The  following  are  the  ToDraw  functions. 

They  are  called  only  after  all  locating  has  been  done.) 

1 


(RPAQQ  AIPSTODRAWFNS  (ScrollFastWindow  ScrollSlowWindow  ScrollTTYWindow 

TDCircle  TDCurve  TDDisplay 

TDDi splayCompos i te 

TDDi splay I temAbs tract ion 

TDDi splaySur face  TDEdgeSet  TDEllipse 

TDFastWindow  TDIWFastWindow 

TD IWNonSc  r  o 1 1W i ndow  TD IWS lo wW i ndow 

TDLineSegment  TDNonScrollWindow 

TDPoint  TDRectangle  TDRegularPolygon 

TDSlowWindow  TDTTYWindow  TDText 

TDWindow) ) 

(DEFINEQ 


U1 
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(ScrollFastWindow 


[DLAMBDA  ((fastWindow  IndividualConcept  (SATISFIES  fastWindow  df 

'FASTWINDOW) ) 


location) 
(CLISP:  MIXED) 


(*  Edited  by  J. Gibbons  on 
2-Feb-81 . ) 


(*  Redraws  the  aperture  and  its  contents  according  to  the  new 
location  or  the  old  substrate  location  if  no  new  one  is 
given. ) 


(PROG  ( (apertureDisplaySurf ace  { fastWindow; sAper ture; SDisplaySurf ace} : 1) 
(substrate  { fastWindow; sSubstrate} : 1) 
locationOf Substrate  substrateRegion) 

(if  location 

then  (SetRoleValues  fastWindow  SubstrateLocation@FASTWINDOW 

<location>) 

else  location_  { fastWindow; SSubstrateLocation} : 1) 

(locationOf Subs tr a te_  { substrate; SLocat ion} : 1) 
(substrateRegion_(TMRegionNumber  'HIDDENPLANE 

<locationOfSubstrate: 1+location; 1 

locationOf Substrate: 2+location: 2> 

{apertureDisplaySurface; &Height| : 1 
{ apertureDisplaySurface; swidth} : 1) : 1) 
(BMGCopyRegion  substrateRegion 

{apertureDisplaySurface;SRegionNumber} : 1) 
(BMGFreeRegionNumber  substrateRegion) ) ] ) 


{2} 


( Sc  r o 1 IS lowW i ndow 

[DLAMBDA  ( (slowWindow  IndividualConcept 

location) 

(CLISP:  MIXED) 


(SATISFIES  slowWindow  df 
'SLOWWINDOW) ) 

(*  Edited  by  J. Gibbons  on 
27-Jan-81 . ) 


(*  Redraws  the  aperture  and  its  contents  according  to  the  new 
location  or  the  old  substrate  location  if  no  new  one  is 
given . ) 


(if  location 

then  (SetRoleValues  slowWindow  SubstrateLocation@SLOWWINDOW 

<location>) 

else  location_  { slowWindow; SSubstrateLocation} : 1) 

(location  (create  PointRecord  xCoord  -location:! 
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yCoord_-location: 2) ) 

(bind  (apertureDisplaySur face  _{CAR 

{ slowWindow; & Aperture; SDisplaySur face} ) ) 
first  (SendMessage  apertureDisplaySur face  'ToDraw)  for  display 
in  (FindTopLevelDisplaysOnViewSur face  (CAR  { slowWindow; SSubstrate} ) ) 
do  (SendMessage  display  'ToDraw  aper tureDisplaySurf ace  location))]) 


13} 


( Sc r o 1 ITT YW i n do w 

[DLAM3DA  ( (ttyWindow  IndividualConcept 

(SATISFIES  ttyWindow  df  'TTYWINDOW) ) 

(height  (ONEOF  NIL  FIXP) ) ) 

(*  Edited  by  J. Gibbons  on 
28-Jan-81 • ) 

(*  Scrolls  the  TTYWindow  up 
height  pixels  or,  if  NIL,  a 
default  amount.) 

(BMGScrollRegion  height  { ttyWindow; SSubstrate; &RegionNumber } ; 1) ] ) 


{4} 


(TDCircle 

[DLAMBDA  ( (circle  IndividualConcept  (SATISFIES  circle  df  'CIRCLE)) 

(displaySurface  IndividualConcept  (SATISFIES  displaySur face  df 

'DISPLAYSURFACE) ) 

(translation  (LST  OF  NUMBERP) ) 

(magnification  (ONEOF  NIL  NUMBERP) ) 

(rotationSpec  (ONEOF  LST  NUMBERP)) 

(displayMode  (ONEOF  NIL  BMGDisplayMode) ) ) 

(*  Edited  by  J. Gibbons  on 
13-Jan-81. ) 

(*  Draws  a  circle.) 

(PROG  ( (regionNumber  {displaySurface; SRegionNumber }: 1) 

(center  {circle;  SiCenter  :1) 

(radius  {circle ; SRadius }; 1) ) 

(center_(create  PointRecord  xCoord_center : 1 
yCoord_center : 2) ) 

(center_(RoundPoint  (Tr ansformPoints  <center>  rotationSpec 

magnification  translation):!) 

) 

(radius_(ROUND  (TransformSize  radius  magnification))) 
(BMGDisplayMode  (if  displayMode 

else  ’ADD) 
regionNumber) 

(BMGMove  center ;xCoord  center : yCoord  regionNumber) 

(BMGCircle  radius  regionNumber))]) 
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{5} 


(TDCurve 

[DLAMBDA  ((curve  IndividualConcept  (SATISFIES  (curve  df  'CURVE) ) ) 

(displaySurface  IndividualConcept  (SATISFIES  displaySur face  df 

'DISPLAYSURFACE) ) 

(translation  (LST  OF  NUMBERP) ) 

(magnification  (ONEOF  NIL  NUMBERP)) 

(rotationSpec  (ONEOF  LST  NUMBERP)) 

(displayMode  (ONEOF  NIL  BMGDisplayMode) ) ) 

(*  Edited  by  J. Gibbons  on 
13-Jan-81.) 

(*  Draws  a  curve  via  its 
Approximation) 

(PROG  ((approximation  {curve; SApproximation] : 1) ) 

(SendMessage  approximation  'ToDraw  displaySurface  translation 
magnification  rotationSpec  displayMode))]) 


{6} 

(TDDisplay 

[DLAMBDA  ( (display  IndividualConcept  (SATISFIES  display  df  'DISPLAY) ) 
(drawingContext  (ONEOF  NIL  IndividualConcept)  (SATISFIES 

(OR 


drawingContext  df  'DISPLAYSURFACE) 


'drawingContext 

( 

( 


drawingContext  df  'WINDOW) ) ) ) 

(translation  (LST  OF  NUMBERP))) 

(*  Edited  by  J. Gibbons  on 
19-Jan-81 . ) 

(*  Draws  an  individual  of 
Display  when  the  drawing 
context  is  not  specified.) 

(if  drawingContext  df  'DISPLAYSURFACE 

then  [if  (DisplaySur faceForGroundP  drawingContext 

{display; SGround} : 1) 

then  (PROG  ((location  {display; SLocation} : 1) 

(size  {display;&Size} : 1) 

(orientation  {display; &0r ientation} : 1) ) 
(location_(create  PointRecord  xCoord_location: 1 

yCoord_location: 2) ) 

(location_(TransformPoints  <location>  NIL  NIL 

translation) : 1) 

(*  Draw  abstractions.) 

(bind  abstraction  for  concept 

in  (KLZGetSuperConcepts  display) 

when  abstraction_(KLGetAbstraction  concept) 
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do  (SendMessage  abstraction  'ToDraw 

drawingContext  location  size 
orientation) ) 

(*  Draw  DisplayForm 
Realizations. ) 

(bind  gener icDisplayForm  “"DISPLAYFORM 

for  realization  in  {display ^Realization} 
when  realization  df  gener icDisplayForm 
do  (SendMessage  realization  ’ToDraw 

drawingContext  translation] 
(*  Draw  subDisplays . ) 

(bind  qener icDisplay_  “DISPLAY  for  realization 

in  {display;Realization}  when  realization  df  gener icDisplay 
do  (SendMessage  realization  'ToDraw  drawingContext 
translation) ) 

elseif  drawingContext  df  “WINDOW 

then  (SendMessage  drawingContext  1 ToDrawInWindow  display) 
elseif  “drawingContext 

then  (for  drawingContext  in  (FindDrawingContextsForDisplay  display) 
do  (SendMessage  display  'ToDraw  drawingContext)))]) 


{7} 

(TDDisplayComposite 

f DLAMBDA  ( (displayComposi te  IndividualConcept  (SATISFIES 

(displayComposite  df 

“DISPLAYCOMPOSITE) ) ) 

(displaySurface  IndividualConcept  (SATISFIES  displaySur face  df 

“DISPLAYSURFACE) ) 

(translation  (LST  OF  NUMBERP) ) 

(magnification  (ONEOF  NIL  NUMBERP) ) 

(rotationSpec  (MEMQ  NIL  0)) 

(displayMode  (ONEOF  NIL  BMGDisplayMode) ) ) 

(*  Edited  by  J. Gibbons  on 
16-Jan-81 . ) 

(*  Draws  an  individual  of  DisplayComposite. 

We  cannot  handle  an  incoming  rotationSpec  but  this  seems  to  be 
the  only  such  limitation.) 


(PROG  ((components  {displayComposite; sComponent) ) 

(location  {displayComposite; ^Location} : 1) 

(size  {displayComposite; &Size} : 1) 

(orientation  {displayComposite; SOrien tat ion} ; 1) ) 
(location_(create  PointRecord  xCoord_location: 1 

yCoord_location: 2) ) 

(location_(TransformPoints  <location>  NIL  magnification 

translation) : 1) 

(size_(TransformSize  size  magnification)) 
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(for  component  in  components 

do  {SendMessage  component  'ToDraw  displaySur face  location  size 
orientation  displayMode) ) ) ] ) 


{8} 


(TDDisplayltemAbs tract ion 

t D LAMBDA  ( (abstraction  IndividualConcept  (SATISFIES  abstraction  df 

'DISPLAYITEMABSTRACTION) ) 

(displaySurface  IndividualConcept  (SATISFIES  displaySur face  df 

'DISPLAYSURFACE) ) 


(translation  (LST  OF  NUMBERP)) 

(magnification  (ONEOF  NIL  NUMBERP) ) 

(rotationSpec  (ONEOF  NIL  NUMBERP))) 

(*  Edited  by  J. Gibbons  on 
16-Jan-81 . ) 

(*  Draws  an  individual  of 
DisplayltemAbs tract ion 
according  to  the  parameters 
given . ) 

(for  component  in  {abstraction;FixedComponent} 

do  (SendMessage  component  'ToDraw  displaySurface  translation 
magnification  rotationSpec))]) 


f9} 


(TDDisplaySurface 

[DLAMBDA  ( (displaySurface  IndividualConcept  (SATISFIES  displaySurface  df 

'DISPLAYSURFACE) ) 

(baseDisplaySurface  (ONEOF  NIL  IndividualConcept)  (SATISFIES 


"■baseDisplaySurface 

or 


( 


baseDisplaySurface  df  'DISPLAYSURFACE))) 

(translation  (LST  OF  NUMBERP)) 

(magnification  (ONEOF  NIL  NUMBERP)) 

(rotationSpec  (ONEOF  LST  NUMBERP)) 

(displayMode  (ONEOF  NIL  BMGDisplayMode) ) ) 

(*  Edited  by  J. Gibbons  on 
19-Jan-81.) 


(*  Fills  the  associated  BMGRegion  with  its  Background 
according  to  displayMode.  The  excess  formal  arguments  are  to 
make  the  function  call  compatible  with  other  DisplayForms . ) 


(PROG  ( (regionNumber  {displaySurfacej&RegionNumber} : 1) ) 
(BMGDisplayMode  (if  displayMode 
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else  'OVERWRITE) 
regionNumber) 

(BMGFillRegion  NIL  regionNumber))]) 


{10} 

(TDEdgeSet 

[DLAMBDA  ( (edgeSet  IndividualConcept  (SATISFIES  edgeSet  df  'EDGESET) ) 

(displaySurface  IndividualConcept  (SATISFIES  displaySur face  df 

'DISPLAYSURFACE) ) 

(translation  (LST  OF  NUMBERP) ) 

(magnification  (ONEOF  NIL  NUMBERP) ) 

(rotationSpec  (ONEOF  LST  NUMBERP)) 

(displayMode  (ONEOF  NIL  BMGDisplayMode) ) ) 

(*  Edited  by  J. Gibbons  on 
9-Jan-81. ) 

(*  Draws  an  Edge  Set;  ie.  a  set  of  line  segments  determined  by 
a  list  of  vertices.) 


(PROG  ((regionNumber  {displaySurface; SRegionNumber }: 1) 

(vertexList  {edgeSet;&VertexList} ; 1) ) 

(vertexList_(for  vertex  in  vertexList 

collect  (create  PointRecord  xCoord_ver tex; 1 
yCoord_vertex: 2) ) ) 

(vertexList_(RoundPoints  (TransformPoints  VertexList  rotationSpec 

magnification 
translation) ) ) 

(BMGDisplayMode  (if  displayMode 

else  'ADD) 
regionNumber) 

(BMGPoint  vertexList; ltxCoord  vertexList: l:yCoord  regionNumber) 
(BMGPolyLine  vertexList  regionNumber))]) 


UU 

(TDEllipse 

[DLAMBDA  ((ellipse  IndividualConcept  (SATISFIES  ellipse  df  'ELLIPSE)) 

(displaySurface  IndividualConcept  (SATISFIES  displaySurface  df 

'DISPLAYSURFACE) ) 

(translation  (LST  OF  NUMBERP)) 

(magnification  (ONEOF  NIL  NUMBERP)) 

(rotationSpec  (ONEOF  LST  NUMBERP)) 

(displayMode  (ONEOF  NIL  BMGDisplayMode))) 

(C LISP:  MIXED)  (*  Edited  by  J. Gibbons  on 

13-Jan-81 . ) 

(*  Draws  an  ellipse.) 

(PROG  ((regionNumber  {displaySur face; SRegionNumber }: 1) 
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]  ) 


(center  {ellipse; SCenter }: 1) 


(semiMajorAxis 

(semiMinorAxis 


[ ellipse; SSemiMajor Axis  : 1) 

{ellipse; SSemiMinorAxisj : 1) 

(orientation  {ellipse ; &0r ientation} : 1) 

(center_ (create  PointRecord  xCoord_center : 1 
yCoord_center : 2) ) 

(center_(RoundPoint  (Tr ansformPoints  <center>  rotationSpec 

magnification  translation) : 1) 

) 


(semiMajorAxis_ (ROUND  (TransformSize  semiMajorAxis  magnification) ) 
) 

(semiMinorAxis_(ROUND  (TransformSize  semiMinorAxis  magnification) ) 
) 

(if  (LISTP  rotationSpec) 

then  rotationSpec_rotationSpec: 1) 

(or ientation_ (ROUND  (REMAINDER  or ientation+ ( if  rotationSpec 

else  0) 

180))) 

(if  orientation  gt  90 

then  or ientation_or ientation-180 
elseif  orientation  It  -90 

then  orientation  orientation+180) 

(BMGDisplayMode  (if  cTisplayMode 

else  ’ADD) 
regionNumber) 

(BMGMove  center ; xCoord  center ;yCoord  regionNumber) 

(BMGEllipse  semiMinorAxis  semiMajorAxis  orientation  regionNumber)) 


{12} 


(TDFastWindow 

( D LAMBDA  ((fastWindow  IndividualConcept  (SATISFIES  (fastWindow  df 

“FASTWINDOW) ) ) 


drawingContext) 


(*  Edited  by  J. Gibbons  on 
2-Feb-81 . ) 


(*  Draws  a  FastWindow  in  the  specified  drawing  context. 

It  must  locate  the  substrate  on  the  HIDDENPLANE,  draw  the 
appropriate  displays  there,  and  then  copy  the  substrate  to  the 
aperture. ) 


(if  drawingContext  df  “DISPLAYSURFACE 

then  (PROG  ((substrate  { fastWindow; SSubstrate) : 1) ) 
(TDWindow  fastWindow  drawingContext) 
(SendMessage  substrate  'ToLocate 

(FindRegion  “HIDDENPLANE 

{ substrate; SHeight} : 1 
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{ substrate ;&Width} : 1) ) 

(SendMessage  substrate  'ToDraw  “HIDDENPLANE) 

(for  display  in  (FindTopLevelDisplaysOnViewSur face 

substrate) 

do  (SendMessage  display  'ToDraw  substrate) ) 
(SendMessage  fastWindow  'Scroll)) 
elseif  drawingContext  df  “WINDOW 
then  (SHOULDNT) 
elseif  “drawingContext 

then  (for  drawingContext  in  (FindDrawingContextsForDisplay 

fastWindow) 

do  (SendMessage  fastWindow  'ToDraw  drawingContext)))]) 


{13} 


( TD IWF a s tW i ndow 

(DLAMBDA  ((fastWindow  IndividualConcept  (SATISFIES  fastWindow  df 


“FASTWINDOW) ) 

(display  IndividualConcept  (SATISFIES  display  df  “DISPLAY))) 

(*  Edited  by  J. Gibbons  on 
2-Feb-81.) 

(SendMessage  display  'ToDraw  { fastWindow; SSubstrate} : 1) 

(SendMessage  fastWindow  'Scroll)]) 


{14} 


( TD IWNonSc  r o 1 1W i ndow 

[DLAMBDA  ( (nonScrollWindow  IndividualConcept  (SATISFIES  nonScrollWindow 

df 

“NONSCROLLWINDOW) ) 

(display  IndividualConcept  (SATISFIES  display  df  “DISPLAY) ) ) 

(*  Edited  by  J. Gibbons  on 
27-Jan-81 . ) 

(*  Knows  how  to  draw  a  Display 
in  a  NonScrollWindow.) 

(SendMessage  display  'ToDraw  {nonScrollWindow; sSubstrate} : 1)  ] ) 


{15} 


(TDIWSlowWindow 

[DLAMBDA  ( (slowWindow  IndividualConcept  (SATISFIES  slowWindow  df 

“SLOWWINDOW) ) 

(display  IndividualConcept  (SATISFIES  display  df  “DISPLAY) ) ) 
(CLISP;  MIXED)  (*  Edited  by  J. Gibbons  on 

27-Jan-81 . ) 

(*  Knows  how  to  draw  Displays 
in  SlowWindows . ) 

(PROG  ( (substr ateLocation  {slowWindow; fcSubstrateLocation} : 1) ) 


Source  File:  AIPSTODRAW 


164 


Report  No.  4752 


Bolt  Beranek  and  Newman  Inc. 


(SendMessage  display  'ToDraw 

{ slowWindow; SAper ture; SDisplaySur f ace} : 1 
(create  PointRecord  xCoord_-substrateLocation: 1 
yCoord_-substrateLocation: 2) ) ) ] ) 


{16} 


(TDLineSegment 

[DLAMBDA  ( (lineSegment  IndividualConcept  (SATISFIES  lineSegment  df 

'LINESEGMENT) ) 

(displaySur face  IndividualConcept  (SATISFIES  displaySur face  df 

'DISPLAYSURFACE) ) 

(translation  (LST  OF  NUMBERP) ) 

(magnification  (ONEOF  NIL  NUMBERP)) 

(rotationSpec  (ONEOF  LST  NUMBERP)) 

(displayMode  (ONEOF  NIL  BMGDisplayMode) ) ) 

{*  Edited  by  J. Gibbons  on 
9-Jan-81 . ) 

(*  Draws  a  line  segment.) 

(PROG  ( (regionNumber  {displaySur face;&RegionNumber } : 1) 

(endpoints  { lineSegment; SEndPoint } ) ) 

(endPoints_(for  point  in  endPoints 

collect  (create  PointRecord  xCoord_point: 1 
yCoord_point: 2) ) ) 

(endPoints_(RoundPoints  (TransformPoints  endPoints  rotationSpec 

magnification 
translation) ) ) 

(BMGDisplayMode  (if  displayMode 

else  'ADD) 
regionNumber) 

(BMGLine  endPoints: ljxCoord  endPoints: l:yCoord  endPoints: 2:xCoord 
endPoints : 2:yCoord  regionNumber) ) ] ) 


{17} 


( TDNonSc r o 1 1W i ndow 

[DLAMBDA  ( (nonScrollWindow  IndividualConcept  (SATISFIES  nonScrollWindow 

df 

'NONSCROLLWINDOW) ) 


drawingContext) 

(*  Edited  by  J. Gibbons  on 
27-Jan-81 . ) 

(*  Draws  a  NonScrollWindow  in 


the  specified  drawing  context.) 

(if  drawingContext  df  'DISPLAYSURFACE 

then  (PROG  ((substrate  {nonScrollWindow; SSubstrate} : 1) ) 

(TDWindow  nonScrollWindow  drawingContext) 

(for  display  in  (FindTopLevelDisplaysOnViewSur face 

substrate) 

do  (SendMessage  display  ’ToDraw  substrate))) 
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elseif  drawingContext  df  "WINDOW 
then  (SHOULDNT) 
elseif  "drawingContext 

then  (for  drawingContext  in  {FindDrawingContextsForDisplay 

nonScrollWindow) 

do  (SendMessage  nonScrollWindow  'ToDraw  drawingContext) )) I } 


{18} 


(TDPoint 

[DLAMBDA  ({point  IndividualConcept  (SATISFIES  point  df  "POINT)) 

(displaySurface  IndividualConcept  (SATISFIES  displaySur face  df 

"DISPLAYSURFACE) ) 


(PROG 


(translation  (LST  OF  NUMBERP)) 

(magnification  (ONEOF  NIL  NUMBERP) ) 

(rotationSpec  (ONEOF  LST  NUMBERP)) 

(displayMode  (ONEOF  NIL  BMGDisplayMode) ) ) 

(*  Edited  by  J. Gibbons  on 
9-Jan-81 . ) 


(*  Draws  a  point.) 

( (regionNumber  {displaySur f ace; &RegionNumber } : 1) 

(location  { point; ^Location} :1) ) 

(location_ (create  PointRecord  xCoord_location: 1 

yCoord_location: 2) ) 

(location_(RoundPoint  (TransformPoints  <location>  rotationSpec 

magnification  translation) 


si) ) 

(BMGDisplayMode  (if  displayMode 

else  'ADD) 
regionNumber) 

(BMGPoint  location :xCoord  location syCoord  regionNumber))]) 


{19} 


(TDRec tangle 

[DLAMBDA  ((rectangle  IndividualConcept 

(SATISFIES  rectangle  df  "RECTANGLE) ) 

(displaySurface  IndividualConcept  (SATISFIES  displaySur face  df 

"DISPLAYSURFACE) ) 

(translation  (LST  OF  NUMBERP)) 

(magnification  (ONEOF  NIL  NUMBERP) ) 

(rotationSpec  (ONEOF  LST  NUMBERP)) 

(displayMode  (ONEOF  NIL  BMGDisplayMode))) 

(CLISP:  MIXED)  (*  Edited  by  J. Gibbons  on 

9-Jan-81 . ) 

(*  Draws  a  rectangle  from  the  lowerLef t-upperRight 
representation.  Orientation  is  with  respect  to  the  center  of 
the  rectangle.) 
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(PROG  ( (regionNumber  {displaySurface;&RegionNumber } : 1) 

(lowerLeft  { rectangle ; SLowerLeft] : 1) 

(upperRight  { rectangle; SUpperRight] : 1) 

(orientation  {rectangle;Or ientation} : 1) 
corners) 

(lowerLeft_ (create  PointRecord  xCoord_lowerLeft: 1 

yCoord_lowerLef t: 2) ) 

(upperRight_(create  PointRecord  xCoord  upperRight: 1 

yCoord_upperRight:1) ) 

(corners_(RoundPoints  (TransformPoints 

(Trans formPoints 

<  (create  PointRecord 

xCoord_lowerLef t : xCoord 
yCoord_upperRight:yCoord) 
upperRight 
(create  PointRecord 

xCoo  r  d_uppe  rRight: xCoord 
yCoo  r  d_lowe  r  Le  f  t : yCoo  r  d ) 
lowerLef t> 

<orientation  (create 

PointRecord  xCoord_( 
lowerLeft : xCoord+upper Right : xCoord) 
/2.0  yCoord_( 

lo we r Le f t : yCoo r d+u ppe r R i g h t : yCoo r d ) 

/2 . 0) 

>) 

rotationSpec  magnification  translation))) 
(BMGDisplayMode  (if  displayMode 

else  ’ADD) 
regionNumber) 

(BMGMove  corners :4:xCoord  corners: 4 :yCoord  regionNumber) 
(BMGPolyLine  corners  regionNumber))]) 


{20] 

( TDRegu la  r  Po lygon 

[ DLAMBDA  ( ( regularPolygon  IndividualConcept  (SATISFIES 

(regularPolygon  df 

'REGULARPOLYGON) ) ) ) 

(CLISP:  MIXED)  (*  Edited  by  J. Gibbons  on 

3 1- Jan- 81 . ) 

(*  Draws  a  regular  polygon 
knowing  its  Center, 
Orientation,  Radius,  and 
Order . ) 

[PROG  ((center  j regularPolygon;Center } : 1) 

(radius  {regularPolygon; Radius] :1) 

(order  { regularPolygon;Order } : 1) 
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(orientation  (OR  { regularPolygon;Or ientation} : 1  0)) 
vertex  vertexList) 

(if  center=NIL  or  radius=NIL  or  order=NIL 

then  (*  insufficient  information  for 

drawing) 

(TDFail  ' TDRegularPolygon  regularPolygon) 
else  [vertexList_(bind  (iterationAngle_360. /order) 

(listOfPoint_<<center : 1+radius 
center : 2>>) 

from  1  to  order  as  angle  from  orientation 

by  iterationAngle 

collect  (vertex_(TransformPoint 

(RotatePointsAroundPoint 
<  center  angle  >  listOfPoint) 

:  1] 

(BMGMove  vertex: 1  vertex: 2) 

(BMGPolyLine  (for  vertex  in  vertexList 

collect  <vertex:l  I  vertex:2>]]) 


{21} 


( TDS lo wW i ndow 

[DLAMBDA  ( (slowWindow  IndividualConcept  (SATISFIES  slowWindow  df 

'SLOWWINDOW) ) 

drawingContext) 

(*  Edited  by  J. Gibbons  on 
26-Jan-81. ) 

(*  Draws  a  SlowWindow  on  the 
specified  DisplaySurface. ) 

(if  drawingContext  df  'DISPLAYSURFACE 

then  (TDWindow  slowWindow  drawingContext) 

(SendMessage  slowWindow  ’Scroll) 
else if  drawingContext  df  'WINDOW 
then  (SHOULDNT) 
elseif  "drawingContext 

then  (for  drawingContext  in  (FindDrawingContextsForDisplay 

slowWindow) 

do  (SendMessage  slowWindow  ’ToDraw  drawingContext)))]) 


{22} 


(TDTTYWindow 

[DLAMBDA  ( (ttyWindow  IndividualConcept 

(SATISFIES  ttyWindow  df  'TTYWINDOW) ) 
drawingContext) 

(*  Edited  by  J. Gibbons  on 
27-Jan-81.) 

(*  Draws  a  TTYWindow  and  ties 
the  BMGTTYReg ion  to  its 
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Substrate . ) 

(if  drawingContext  df  'DISPLAYSURFACE 

then'  (TDWindow  ttyWindow  drawingContext) 

(BMGTTYReg ion  { ttyWindow ; fiSubs t r a te ; &Reg ionNumbe r } : 1 ) 
(BMGResetTTY) 

elseif  drawingContext  df  'WINDOW 
then  (SHOULDNT) 
elseif  “drawingContext 

then  (for  drawingContext  in  (FindDrawingContextsForDisplay 

ttyWindow) 

do  (SendMessage  ttyWindow  ’ToDraw  drawingContext)))]) 


{23} 


(TDText 

[DLAMBDA  ((text  IndividualConcept  (SATISFIES  text  df  'TEXT)) 

(displaySurface  IndividualConcept  (SATISFIES  displaySurface  df 

'DISPLAYSURFACE) ) 

(translation  (LST  OF  NUMBERP)) 

(magnification  (ONEOF  NIL  NUMBERP)) 

(rotationSpec  (ONEOF  LST  NUMBERP)) 

(displayMode  (ONEOF  NIL  BMGDisplayMode) ) ) 

(*  Edited  by  J. Gibbons  on 
31-Jan-81 . ) 

(*  Draws  the  specified  text  string  at  the  desired  location 
using  the  correct  font.) 


[PROG  ((fontNumber  { text;&Font} : 1) 

(lineSpacing  -{ text;&LineSpacing} : 1) 

(location  { text; SLocation} : 1) 

(string  {text;&String} : 1) )  (*  Set  the  Graphics  region  and 

its  font  and  starting 
location. ) 

(BMGRegion  {text;&Ground;&RegionNumber} :1) 

(BMGFont  fontNumber) 

(BMGMove  location: 1  location: 2+{ text ; SHeight} : 1- (BMGDescr ibeFont 
fontNumber) :LoadedFont\FontRecord:Font\BaseLine) 

(*  Output  the  string.) 

(bind  [breakChars  _(CONSTANT  (MAKEBITTABLE  ' (10  13  31] 
lineBeginPos_l 

subString_""  breakChar  breakPos 
while  breakPos_(STRPOSL  breakChars  string  lineBeginPos) 
do  (if  substring_ (SUBSTRING  string  lineBeginPos  breakPos-1 

substring) 

then  (BMGString  substring) 
else  subString__"") 

(lineBeginPos  breakPos+1) 

(if  breakChar- (CHC0N1  (NTHCHAR  string  breakPos) ) »31 
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then 

(*  LISP's  internal  end  of  line  character. 
Treat  it  like  a  carriage  return,  line  feed.) 


(BMGMove  location: 1  ( (BMGY) +lineSpacing) ) 
elseif  breakChar=10 

then  (*  Bare  line  feed.) 

(BMGMoveRel  (MakeTextWidth  substring  fontNumber ) : 1 
lineSpacing) 

elseif  (CHCONl  (NTHCHAR  string  lineBeginPos) ) =10 

then  (*  Carriage  return,  line  feed.) 

(lineBeginPos_lineBeginPos+l) 

(BMGMove  locationsl  ( (BMGY) +lineSpacing) ) 

else  (*  Bare  carriage  return.) 

(BMGMove  location: 1  (BMGY))) 

finally  (if  subStr ing_(SUBSTRING  string  lineBeginPos  NIL 

substring) 

then  (BMGString  substring]]) 


{24} 


(TDWindow 

[DLAMBDA  ( (window  IndividualConcept  (SATISFIES  (window  df  'WINDOW) ) ) 
(drawingContext  (ONEOF  NIL  IndividualConcept)  (SATISFIES 

(OR 


drawingContext  df  'DISPLAYSURFACE) 

drawingContext  df  'WINDOW) ) ) ) 

(translation  (LST  OF  NUMBERP) ) ) 


"drawingContext 

( 

( 


(*  Edited  by  J. Gibbons  on 
19- Jan- 81.) 


(*  Draws  the  Window  as  a  Display  on  the  specified 
DisplaySurface .  The  parts  must  be  drawn  in  the  proper  order; 
eg  the  DisplaySurface  which  provides  the  background  for  the 
window  as  a  whole  must  be  drawn  first.) 


(if  drawingContext  df  'DISPLAYSURFACE 

then  (if  (DisplaySur faceForGroundP  drawingContext 

(window; SContext} : 1) 

then  (bind  drawingSurface_{window;&DisplaySurface} : 1 
first  (SendMessage  drawingSur face  1 ToDraw) 
for  realization  in  {window;Realization} 
unless  real ization=drawingSur face 


Source  File:  AIPSTODRAW 


170 


Report  No.  4752 


Bolt  Beranek  and  Newman  Inc. 


) 


elseif 

then 


elseif 

then 


do  (SendMessage  realization  'ToDraw  drawingContext 
translation) ) ) 

drawingContext  df  "“WINDOW 

(*  we  cannot  handle  this 
currently) 

( SHOULDNT ) 

“drawingContext 

(for  drawingContext  in  (FindDr awingContextsForDisplay  window) 
do  (SendMessage  window  'ToDraw  drawingContext)))]) 


(RPAQQ  AIPSTODRAWERASEFNS  (TEDisplayAtom  TEDisplayComposite) ) 
(DEFINEQ 


{25} 


(TEDisplayAtom 

[LAMBDA  (displayAtom  displaySur face  translation  magnification 

rotationSpec)  (*  Edited  by  J. Gibbons  on 

13- Jan-81. ) 

(*  Erases  the  displayAtom  by  drawing  it  in  FLIP  mode. 

This  works  satisfactorily  for  most  DisplayAtoms. 

For  those  where  it  does  not,  there  will  be  more  specialized 
erasing  functions.) 


(SendMessage  displayAtom  'ToDraw  displaySur face  translation 
magnification  rotationSpec  'FLIP]) 


{26} 


(TEDisplayComposite 

[ D LAMBDA  ( (displayComposite  IndividualConcept  (SATISFIES 

(displayComposite  df 

'DISPLAYCOMPOSITE) ) ) 

(displaySur face  IndividualConcept  (SATISFIES  displaySur face  df 

'DISPLAYSURFACE) ) 

(translation  (LST  OF  NUMBERP) ) 

(magnification  (ONEOF  NIL  NUMBERP)) 

(rotationSpec  (MEMQ  NIL  0))) 

(*  Edited  by  J. Gibbons  on 
13-Jan-81 . ) 

(*  Erases  an  individual  of  DisplayComposite. 

We  cannot  handle  an  incoming  rotationSpec  but  this  seems  to  be 
the  only  such  limitation.  This  is  identical  to 
TDDisplayComposite  except  that  the  recursive  request  is  to 
erase  rather  than  to  draw.) 
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(PROG  ((components  {displayComposite; scomponent} ) 

(location  {displayComposite; &Location} : 1) 

(size  {displayComposite; &Size} ; 1) 

(orientation  {displayComposite;&Orientation} : 1) ) 
(location_(TransformPoints  <location>  NIL  magnification 

translation) ; 1) 

(size_(TransformSize  size  magnification) ) 

(for  component  in  components 

do  (SendMessage  component  * ToErase  displaySurface  location 
size  orientation)))]) 

) 

(DECLARE:  COPYWHEN  (NOT  COMPILEIGNOREDECL) 

(RPAQQ  AIPSTODRAWRECORDS  (PointRecord) ) 

[DECLARE:  EVAL@COMPILE 

(RECORD  PointRecord  (xCoord  .  yCoord) 

xCoord  _  0  yCoord  _  0) 

] 

) 

(RPAQQ  A I PSTODRAWUT I L I TYFNS  (DisplaySur f aceForGroundP 

FindDrawingContextsFor Display 
FindRoleValuesTransitively 
FindTopLevelDisplaysOnViewSurface 
GetFontCharacterDef 
LDIFFERENCE  ROUND 
RotatePointsAroundPoint 
RoundPoint 
RoundPoints 
ScrollWindow 
TransformPoints 
TransformSize) ) 

(DEFINEQ 


{27} 


(DisplaySur f aceForGroundP 

[LAMBDA  (displaySurface  ground)  (*  Edited  by  J. Gibbons  on 

19-Jan-81 . ) 

(OR  ground=displaySur f ace  (AND  "(ground  df  'DISPLAYSURFACE) 

(for  window  in  {ground;Window} 
thereis  (CAR 

{ window; Aperture ; DisplaySur face} ) 
*displaySur f ace] ) 
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(F i ndDr awingCon text sFor Display 

[DLAMBDA  ( (display  IndividualConcept  (SATISFIES  display  df  'DISPLAY) ) ) 

(*  Edited  by  J. Gibbons  on 
28-Jan-81 . ) 

(*  Returns  a  list  of  the  relevant  drawing  contexts  for  the 
Display  and  all  of  its  subDisplays . ) 


(bind  ground_{display ; SGround} : 1 
gener icDisplay_'DISPLAY 
drawingContexts  windows  for  realization 
in  {display ;Realization}  when  realization  df  gener icDisplay 
join  (FindDrawingContextsForDisplay  realization) 
finally  (RETURN  (INTERSECTION  drawingContexts_ 

< 

I (if  windows_{ ground; Window} 
then  <  !  windows> 
elseif  ground  df  'DISPLAYSURFACE 
then  <ground>) 

!  $$VAL> 

drawingContexts) ) ) ] ) 


{29} 

(FindRoleValuesTransitively 

[DLAMBDA  ( ( individualConcept  IndividualConcept) 

(genericRole  Role) 

(RETURNS  (LST  OF  RoleValue) ) ) 

(*  Edited  by  J. Gibbons  on 
27-Aug-80 . ) 

(*  Finds  all  of  the  individuals  which  are  transitively  related 
to  the  individualConcept  by  virtue  of  being  a  Role  Filler  of 
the  genericRole.  For  example,  if  concept  F00  has  generic  role 
BAR  and  individuaters  A,  B,  and  C  such  that  B  fills  the  BAR 
role  of  A  and  C  fills  the  BAR  role  B,  then  both  B  and  C  are 
returned  for  A  and  BAR.) 


(PROG  (f illerLst) 

(RETURN  <  ! !  (f illerLst_(KLFindRoleValues  individualConcept 

genericRole)) 

I  (for  filler  in  fillerLst 

join  (FindRoleValuesTransitively  filler  genericRole) 
) 

>))]) 
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{30} 


(FindTopLevelDisplaysOnViewSurface 

[ D LAMBDA  ( (viewSurface  IndividualConcept  (SATISFIES  (viewSurface  df 

'VIEWSURFACE) ) ) 


(RETURNS 


(LST  OF 


IndividualConcept) ) ) 

(*  Edited  by  J. Gibbons  on 
29-Jul-80.) 


(*  This  returns  a  list  of  Displays  each  of  which  Is  has  its 
Ground  role  filled  by  viewSurface  and  2:  does  not  fill  the 
Realization  role  of  some  other  Display  having  viewSurface  as 
Ground . ) 


[PROG  (displays) 

(displays_(bind  (groundRole  _ (KLFindOneNamedGener icRole  'DISPLAY 

’Ground) ) 

for  groundIRole  in  (KLGetValueDescr iptionlnverses 

viewSurface) 

collect  (KLGetConceptOfRole  groundIRole) 
when  (KLIsRoleDescendantP  groundIRole  groundRole) ) ) 
(RETURN  (LDIFFERENCE  displays 

(for  display  in  displays 

join  (FindRoleValuesTransitively 
display 

(KLFindOneNamedGener icRole 

'DISPLAY 
’Realization] ] ) 


{31} 


(GetFontCharacterDef 

[ D LAMBDA  ({fontNumber  SMALLP  (SATISFIES  fontNumber  ge  0 

and  fontNumber  le 

BMGMaxNumber Of Fonts) ) 

(characterCode  SMALLP  (SATISFIES  characterCode  ge  0 

and  characterCode  le  127))) 

(*  Edited  by  J. Gibbons  on 
18-Sep-80 . ) 

(*  Returns  the  BMGCharDefRecord 
for  the  specified  characterCode 
in  the  specified  font.) 

'ELT  (BMGDescr ibeFont  fontNumber) :LoadedFont\FontRecord:Font\CharArray 
1+characterCode) ] ) 


{32} 


(LDIFFERENCE 

'LAMBDA  (LIST1  LIST2)  (*  Edited  by  J. Gibbons  on 
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31-Jan-81 . ) 

(*  WE  NEED  THIS  SINCE  IT  IS 
UNDEFINED  IN  THE  SMALL  CKLONE) 
(for  X  in  LIST1  collect  X  unless  X  memb  LIST2] ) 


{33} 

(ROUND 

[ DLAMBDA  ( (X  NUMBERP)) 

(*  Edited  by  J. Gibbons  on 
7-Jan-81 . ) 

(if  (FIXP  x) 
then  x 

else  (FIX  (if  (MINUS P  x) 
then  x- . 5 
else  x+.5) ) ) ] ) 


{34} 

(RotatePointsAroundPoint 

[DLAMBDA  ( (pointsLst  (LST  OF  (LISTP  OF  NUMBERP))) 

(rotationSpec  (ONEOF  NUMBERP  LST) ) ) 

(CLISP:  MIXED)  (*  Edited  by  J. Gibbons  on 

8-Jan-81 . ) 

(*  Rotates  a  list  of  points  counterclockwise  from  the  positive 
xAxis  around  a  center  point  according  to  orientation. 

Assumes  a  cartesian  coordinate  system.) 


(if  rotationSpec  and  pointsLst 

then  (PROG  ((theta  (if  (NUMBERP  rotationSpec) 

then  rotationSpec 
else  rotationSpec: 1) ) 

[center  (if  (LISTP  rotationSpec) 
then  rotationSpec: 2 
else  (CONSTANT  (create  PointRecord] 
cos  sin  xConstant  yConstant) 

(RETURN  (if  theta  and  ~ (EQP  theta  0) 
then  (cos_(COS  theta) ) 

(sin“(SIN  theta) ) 

(xConstant_  center :xCoord* (1.0-cos) 
+center :yCoord*sin) 
(yConstant_  center :yCoord* (1.0-cos) 
-center :xCoord*sin) 

(for  point  in  pointsLst 

collect  (create  PointRecord  xCoord 
xConstant+point:xCoord*cos-point :yCoord*sin 

yCoord_ 
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yConstant+point:xCoord*sin+point:yCoord*cos) ) 
else  pointsLst) ) ) 

else  pointsLst)]) 


{35} 


(RoundPoint 

[LAMBDA  (point)  (*  Edited  by  J. Gibbons  on 

8-Jan-81 . ) 

(*  ROUNDS  the  coordinates  of  a  point  if  either  of  them  is  a 
FLOATP) 


(if  (FLOATP  pointsxCoord)  or  (FLOATP  pointtyCoord) 
then  (create  PointRecord 

xCoord  _ (ROUND  pointrxCoord) 
yCoord  _ (ROUND  pointtyCoord) ) 

else  point] ) 


{36} 


(RoundPoints 

[DLAMBDA  ((pointsLst  (LST  OF  (LISTP  OF  NUMBERP) ) ) ) 

(*  Edited  by  J. Gibbons  on 
9-Jan-81 . ) 

(*  Round  all  of  the  coordinates 
of  points  in  pointsLst  to 
integers. ) 

(for  point  in  pointsLst  collect  (RoundPoint  point))]) 


{37} 


(ScrollWindow 

[DLAMBDA  ( (scrollWindow  IndividualConcept  (SATISFIES  (scrollWindow  df 

'SCROLLWINDOW) ) ) 


(substrateLocation  LISTP)) 

(CLISP:  MIXED)  (*  Edited  by  J. Gibbons  on 

l-Aug-80 . ) 

(*  Sets  the  Substrate  Location 
of  the  ScrollWindow  and  redraws 
the  Aperture.) 

(KLChangeRoleValue  (KLFindOneNamedlnstanceRole  scrollWindow 

' SubstrateLocation) 


<substrateLocation>) 

(APPLY*  (KLFindIData  scrollWindow  ' (ToDr awAper ture) ) : 1  scrollWindow)]) 


{38} 
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(TransformPoints 

[DLAMBDA  { (pointsLst  (LST  OP  (LISTP  OF  NUMBERP) ) ) 

(rotationSpec  (ONEOF  LST  NUMBERP) ) 

(magnification  (ONEOF  NIL  NUMBERP) ) 

(translation  (ONEOF  NIL  (LISTP  OF  NUMBERP)))) 

(CLISP:  MIXED)  (*  Edited  by  J. Gibbons  on 

13-Jan-81. ) 

(*  Provides  a  uniform 
transformation  mechanism  for 
the  ToDraw  functions.) 

(if  magnification 
else  magnif ication_l) 

(if  translation 

else  translation_ (CONSTANT  (create  PointRecord) ) ) 

(for  point  in  (RotatePointsAroundPoint  pointsLst  rotationSpec) 
collect  (create  PointRecord  xCoord_ 

translation:xCoord+magnif ication*point:xCoord 
yCoord_ 

translation :yCoord+magnification*point:yCoord) ) ] ) 


(39} 

(TransformSize 

(DLAMBDA  ((size  NUMBERP) 

(magnification  (ONEOF  NIL  NUMBERP))) 

(CLISPj  MIXED)  (*  Edited  by  J. Gibbons  on 

13-Jan-81. ) 

(*  Transforms  the  size 
parameter  by  magnification.) 

(if  magnification 

then  magnif ication*size 
else  size) ] ) 

) 

(DECLARE:  DOEVAL@COMPILE  DONTCOPY 

(ADDTOVAR  GLOBAL VARS  TDRegion) 

) 

(DECLARE:  DONTE VAL @ LOAD  EVAL@COMPILEWHEN  (NOT  (BOUNDP  (QUOTE  BMGCOMS ) ) ) 
DONTCOPY 

(FILESLOAD  <FONTWORK>BMGRECORDSANDVARS . . 0) 

) 

(ADDTOVAR  CKLONEFILES  AIPSTODRAW) 

STOP 
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15.  SOURCE  FILE:  AIPSTS 


InitTIMESYSTEM . 1 

InitTimeSystemConcepts . 2 

InitUT . 3 
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(FILECREATED  "10-Jul-80  23:58:18"  <NEWAIPS > AIPSTS .. 2  1129 
changes  to:  AIPSTSCOMS 

previous  date:  "  9-Jul-80  14:54:20"  <NEWAIPS>AIPSTS . . 1) 


(PRETTYCOMPRINT  AIPSTSCOMS) 

(RPAQQ  AIPSTSCOMS  ( (FNS  *  AIPSTSINITFNS) 

(ADDVARS  (CKLONEFILES  AIPSTS) ) ) ) 

(RPAQQ.  AIPSTSINITFNS  (InitTIMESYSTEM  InitTimeSystemConcepts  InitUT) ) 
(DEFINEQ 


{1} 


(InitTIMESYSTEM 
[LAMBDA  NIL 

[concept  TIMESYSTEM 

(*  A  coordinate  system  for 
describing  events.) 

(specializes  COORDINATESYSTEM) 

[roleset  NIL 

(mods  Dimens ionality@COORDINATESYSTEM) 

(vr  1)]]]) 


{2} 


(InitTimeSystemConcepts 
[LAMBDA  NIL 

(*  Initializes  concepts  having  to  do  with  describing  time 
intervals  and  the  timings  of  events.) 


(InitTIMESYSTEM] ) 


{3} 


(InitUT 

[LAMBDA  NIL  (*  Edited  by  F.Zdybel  on 

9-Jul-80.) 

[concept  UT 

(specializes  TIMESYSTEM) 

[roleset  NIL 
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(mods  Name@CoordinateSystem) 
(vr  "Universal  Time")]]]) 


(ADDTOVAR  CKLONEFILES  AIPSTS) 
STOP 
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16.  SOURCE  PILE:  AIPSUTILITY 


SendMessage . . . . 1 
SetRoleValues . . 2 
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(PILECREATED  "19-Dec-80  00:34:20"  <NEWAIPS>AIPSUTILITY . . 9  2943 


changes  to:  SendMessage 

previous  date:  "16-Dec-80  23:54:51"  <NEWAIPS>AIPSUTILITY. .8) 


(PRETTYCOMPRINT  AIPSUTILITYCOMS) 

(KPAQQ  AIPSUTILITYCOMS  l  (FNS  *  AIPSUTILITYFNS) 

(VARS  ( SENDMESS AGENOBRE AKFLG ) 

(SENDMESSAGENOERRMESSFLG) ) 

(DECLARE:  DONTE VAL @ LOAD  DOEVAL@COMPILE  DONTCOPY 
COMPILERVARS  (ADDVARS  (NLAMA) 

(NLAML) 

(LAMA  SendMessage] ) 


(RPAQQ  AIPSUTILITYFNS  (SendMessage  SetRoleValues) ) 
(DEFINEQ 


{1} 


(SendMessage 

[LAMBDA  argList  (*  Edited  by  J. Gibbons  on 

19-Dec-80 . ) 

(*  Attached  procedures  on  IndividualConcepts  are  invoked  via 
SendMessage  ( individualConcept  procedureTag  .  args) . 

Procedures  inherited  by  individualConcept  according  to  the 
iTag  procedureTag  are  sequentially  executed  until  one 
succeeds,  in  which  case  SendMessage  passes  back  the  value 
returned  by  the  inherited  procedure.  If  none  succeed,  an  ERROR 
is  generated  which  can  be  controlled  by  the  variables 
SENDMESSAGENOBREAKFLG  and  SENDMESSAGENOERRMESSFLG . 

An  inherited  procedure  is  APPLY' d  to  the  same  argument  list  as 
SendMessage  except  that  procedureTag  is  removed.) 


(bind  value  (procedureArgList  _(for  index  to  argList  unless  index=2 

collect  (ARG  argList  index) ) ) 

for  attachedProcedure  in  (KLFindIData  (the  Concept  (ARG  argList  1) ) 

(MKLIST  (ARG  argList  2))) 

thereis  (NLSETQ  value_(APPLY  attachedProcedure  procedureArgList)) 
finally  (if  $$VAL 

then  (RETURN  value) 
else  (ERROR  (ARG  argList  1) 

(CONCAT  "doesn't  know  how  to  process  " 
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(ARG  argList  2)) 

SENDMESSAGENOBREAKFLG  SENDMESSAGENOERRMESSFLG] ) 


{2} 


(SetRoleValues 

[DLAMBDA  ((iConcept  IndividualConcept) 

(parentRole  RoleSet) 

(roleValues  (LST  OF  RoleValue) ) ) 

(*  Edited  by  J. Gibbons  on 
16-Dec-80 . ) 


(*  This  function  establishes  a  new  set  of  role  fillers  for  the 
parentRole  of  the  iConcept.  It  changes  role  values  of  existing 
instance  roles,  deletes  excess  instance  roles  if  any,  or  adds 
instance  roles  if  necessary.) 


(bind  (instanceRoles  _(KLFindInstanceRoles  iConcept  parentRole)) 
for  roleValue  in  roleValues  do  (if  instanceRoles 

then  (KLChangeRoleValue 

instanceRoles: 1 
<roleValue>) 


instanceRoles_instanceRoles: : 
else  (KLSatisfyRole  parentRole 

iConcept 

<roleValue 


1 

>)  ) 


finally  (for  instanceRole  in  instanceRoles 

do  (KLRemoveRole  instanceRole)))]) 


) 


(RPAQ  SENDMESSAGENOBREAKFLG  NIL) 

(RPAQ  SENDMESSAGENOERRMESSFLG  NIL) 

(DECLARE:  DONTEVAL @ LOAD  DOEVAL@COMPILE  DONTCOPY  COMPILERVARS 


(ADDTOVAR  NLAMA  ) 

(ADDTOVAR  NLAML  ) 

(ADDTOVAR  LAMA  SendMessage) 
) 

STOP 
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17.  SOURCE  FILE:  AIPSWINDOW 

InitAPERTURE . 1 

InitFASTWINDOW . 2 

InitNONSCROLLWINDOW. . . 3 

Ini  tSCROLLWlNDOW . 4 

InitSLOWWINDOW . 5 

InitTTYWINDOW . 6 

InitWINDOW . 7 

InitWindowConcepts . . . .8 

OpenWindow . 9 

TLAperture . 10 

TLWindow . 11 

TMAperture . 12 

TMFastWindow . 13 

TMNonScrollWindow. . . .14 

TMSlowWindow . 15 

TMTTYWindow . 16 

TSAperture . 17 

TSNonScrollWindow. . . .18 
TSWindow . 19 


187 


Source  File:  AIPSWINDOW 


Bolt  Beranek  and  Newman  Inc. 


Report  No.  4752 


(FILECREATED  "  2-Feb-81  01:15:28"  <NEWAIPS>AIPSWINDOW. . 122  18798 
changes  to:  TMFastWindow 

previous  date:  "  2-Feb-81  01:00:00"  <NEWAIPS>AIPSWINDOW. . 121) 


(PRETTYCOMPRINT  AIPSWINDOWCOMS ) 

(RPAQQ  AIPSWINDOWCOMS  ((FNS  *  AIPSWINDOWINITFNS) 

(FNS  *  AIPSWINDOWUTILITYFNS) 

(FNS  *  AIPSWINDOWTOLOCATEFNS) 

(FNS  *  AIPSWINDOWTOMAREFNS) 

(FNS  *  AIPSWINDQWTOS I ZEFNS ) 

(GLOBALVARS  AIPSUSERMODEL) 

(ADDVARS  (CKLONEFILES  AIPSWINDOW) ) ) ) 

(RPAQQ  AIPSWINDOWINITFNS  (InitAPERTURE  InitFASTWINDOW  InitNONSCROLLWINDOW 

InitSCROLLWINDOW  InitSLOWWINDOW 
Ini tTTYWINDOW  InitWINDOW 
InitWindowConcepts) ) 

(DEFINEQ 


(InitAPERTURE 
[LAMBDA  NIL 

[concept  APERTURE 

(specializes  DISPLAYCOMPOSITE) 
[roleset  Border 

( d i f f s  Component @ D I S PL A YCOMPOS I TE ) 
(modality  Obligatory) 

(vr  RECTANGLE) 

(derivation  (TMRectangle) ) ] 
[roleset  DisplaySurface 

(diffs  Component @D ISPLAYCOMPOS I TE ) 
(modality  Obligatory) 

(vr  DISPLAYSURFACE) ] 

(itags  (ToLocate  TLAperture) 

(ToMake  TMAperture) 

(ToSize  TSAperture) ) ] ] ) 


(*  Edited  by  J. Gibbons  on 
30-Dec-80.) 


(InitFASTWINDOW 
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[LAMBDA  NIL 


(*  Edited  by  J. Gibbons  on 
28-Jan-81 . ) 


[concept  FASTWINDOW 

(specializes  SCROLLWINDOW) 

[roleset  NIL 

(mods  Substrate@SCROLLWINDOW) 

(vr  INVISIBLESURFACE) 

(derivation  (SeeklnvisibleSubstrate 

(Prerequisites  Application) 

(Arguments  { (Make  DISPLAY  Application 

({$$CONCEPT;Application} ; 1) ) 
;Ground} si)))] 


(*  Any  Window  whose  substrate  is  an  actual  chunk  of  map  memory 
can  scroll  very  quickly  via  BMGCopyRegion. 

Hence  the  name  FastWindow.) 


(itags  (Scroll  ScrollFastWindow) 
(ToDraw  TDFastWindow) 
(ToDrawInWindow  TDIWFastWindow) 
(ToMake  TMFastWindow) ) 3 1 ) 


{3} 


(Ini tNONSCROLLWINDOW 
[LAMBDA  NIL 

[concept  NONSCROLLWINDOW 
(specializes  WINDOW) 


(*  Edited  by  J. Gibbons  on 
28-Jan-81. ) 


(*  The  only  distinguishing  structural  characteristic  of 
NonScrollWindows  at  this  time  is  that  their  Substrates  are 
identical  with  the  DisplaySur faces  of  their  Apertures.) 


[roleset  NIL 

(mods  Aperture@WINDOW) 

(derivation  (TMAperture  (Prerequisites  Substrate) 

(Arguments  NIL  {$$CONCEPT?Substratel : 1) ) ) ] 
(itags  (ToDraw  TDNonScrollWindow) 

(ToDrawInWindow  TDIWNonScrollWindow) 

(ToMake  TMNonScrollWindow) 

(ToSize  TSNonScrollWindow) ) ] ] ) 


{4} 
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(Ini tSCROLLWINDOW 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

23-NOV-80.) 

[concept  SC ROLLWINDOW 
(specializes  WINDOW) 

[roleset  ScrollBar 

(diffs  Realization@DISPLAY) 

(number  (0  2)) 

(vr  CONTROLBAR) ] 


(*  Designations  on  the  Scroll  Bar  of  a  Window  can  be  used  to 
modify  the  description  filling  the  Window's  Location  Role.) 


[roleset  SubstrateLocation 
(vr  LISTP) 

(def aultf iller  '(0  0))] 


{*  The  location  of  the  Window's  origin 

(the  origin  of  its  display  region)  on  the  coordinate  system  of 
the  Substrate.) 


(preferredprototype  'FASTWINDOW) ] } ) 


{5} 


(InitSLOWWINDOW 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

2  0-J an- 81.) 

[concept  SLOWWINDOW 


(*  A  Window  which  scales  and  scrolls  by  causing  the  stuff 
being  viewed  through  it  to  be  re-Presented.) 


(specializes  SCROLLWINDOW) 
[roleset  ScaleBar 

(diffs  Realization@DISPLAY) 
(vr  CONTROLBAR)] 


(*  Designations  in  the  Scale  Bar  of  a  Window  can  be  used  to 
modify  the  descriptions  filling  the  Entry  and  Exit  Roles  of 
the  CoordSys  of  Window's  Substrate  (i.e.,  the  scale  of  the 
projection  through  the  Window) .  Since  there  is  no  hardware 
level  stuff  for  doing  scaling,  it  must  be  accomplished  by 
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re-presentation,  hence  can  only  be  accomplished  by 
SlowWindows . ) 


(itags  (Scroll  ScrollSlowWindow) 
(ToDraw  TDSlowWindow) 
(ToDrawInWindow  TDIWSlowWindow) 
(ToMake  TMSlowWindow) )  ]] ) 


{6} 


(Ini  tTTYWINDOV* 

[LAMBDA  NIL 

[concept  TTYWINDOW 


(*  Edited  by  J. Gibbons  on 
27-Jan-81.) 


(*  Individuals  of  TTYWindow  provide  the  Substrates  for  the 
BMGTTYReg ion ,  ie.  the  destination  of  system  TTY  output.) 


(specializes  SCROLLWINDOW) 

[roleset  NIL 

(mods  Substrate@SCROLLWINDOW) 

(derivation  (Copy  (Prerequisites  Aperture) 

(Arguments  {$$CONCEPT; Aperture; SDisplaySurfacel : 1) 
))] 

(itags  (Scroll  ScrollTTYWindow) 

(ToDraw  TDTTYWindow) 

(ToMake  TMTTYW indow ) ) ] ] ) 


(InitWINDOW 
[LAMBDA  NIL 

[concept  WINDOW 


{7} 


(*  Edited  by  J. Gibbons  on 
27-Jan-81. ) 


(*  Window  is  a  concept  that  serves  many  purposes. 

In  the  first  place,  a  Window  is  a  convenient  way  to  organize 
and  mobilize  the  use  of  the  limited  available  display  area. 

In  the  second  place,  it  can  serve  as  a  context  for  the 
interpretation  of  input.  Finally,  a  Window  constitutes  an 
important  part  of  the  environment  for  the  realization  of  a 
display.  This  explains  how  it  is  possible  to  implement  some 
scrolling  in  a  way  that  eliminates  undesirable  edge  effects: 
the  "position"  of  the  Window  over  the  substrate  can  influence 
the  re-layout  and  re-realization  of  the  underlying 
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Presentations.) 


(specializes  DISPLAY) 


(*  The  Context  is  the  VisibleSurface  on  which  the  Window  gets 
displayed.  It  must  either  be  specified  or  defaulted.) 


[roleset  Context 

(mods  Ground@DISPLAY) 

(vr  DISPLAYSURFACE) 

(defaultf iller  'CONRACSCREEN) ] 


(*  The  Substrate  is  the  ViewSurface  on  which  the  Window  opens. 
Currently  there  can  be  only  one.  Perhaps  in  the  future  we  will 
allow  more  in  which  case  the  images  will  be  superimposed. 

The  Substrate  must  be  specified.) 


[roleset  Substrate 
(modality  Obligatory) 
(vr  VIEWSURFACE)] 


(*  The  Aperture  is  the  VisibleSurface  on  which  the  portion  of 
the  Substrate  covered  by  the  Window  is  displayed.) 


[roleset  Aperture 

(diffs  Realization@DISPLAY) 

(modality  Obligatory) 

(vr  APERTURE) 

(derivation  (TMAperture  (Prerequisites  Context) 

(Arguments  NIL  { $$CONCEPT; Context; SPlane} : 1 
T)))] 


(*  The  Border  is  a  Rectangle  which  also  acts  as  the  Boundary 
of  the  Window's  DisplaySurface .  It  gets  drawn  to  pictorially 
delimit  the  extent  of  the  Window.) 


[roleset  Border 

(diffs  RealizationiDISPLAY) 

(vr  RECTANGLE) 

(modality  Obligatory) 

(derivation  (Copy  (Prerequisites  DisplaySurface) 

(Arguments  { $$CONCEPT;DisplaySurface; ^Boundary} : 1) 
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))] 


{*  The  DisplaySurface  is  all  and  only  the  display  region  on 
which  the  Window  and  all  of  its  parts  are  drawn.) 


1 


[roleset  DisplaySurface 

(diffs  Realization@DISPLAY) 

(vr  DISPLAYSURFACE) 

(modality  Obligatory) 

(derivation  (TMDisplaySurface  (Prerequisites  Context) 

(Arguments  NIL 

{$$CONCEPT;Context;&Plane} :1  0) ) ) 


(*  The  Label  is  an  optional  part  of  the  Window  nestled  either 
above  or  below  the  Aperture  inside  the  Border. 

It  is  manifest  by  a  special  sort  of  Window  which  itself  has  no 
Label  but  is  drawn  as  Text  on  an  inverted  background.) 


[roleset  Label 

(diffs  Realization@DISPLAY) 

(vr  WINDOWLABEL) 

(derivation  (MakeWindowLabel  (Arguments  $$CONCEPT) ) 
(Consequents  InnerServant) ) ] 


(*  The  Location  of  the  Window  is  the  position  of  its  lower 
left  corner  on  its  Context.) 


[roleset  NIL 

(mods  Location@DISPLAY) 
[derivation  (MakeWindowLocation 


(Prerequisites  Context  Height  Width) 


(Arguments 


(CAR 

(CAR 

(CAR 


$$CONCEPT ; Context } ) 
$$C0NCEPT; Height}) 
$$CONCEPT;Width} ] ] 


(*  The  Width  of  the  Window  can  be  derived  from  any  of  several 
other  roles  depending  on  what  is  already  filled. 

We  will  give  as  arguments  all  of  the  possibilities  and  let  the 
derivation  function  determine  what  to  do.) 


[roleset  NIL 

(roods  Width@DISPLAY) 

[derivation  (MakeWindowWidth  (Arguments  (CAR 
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{ $$CONCEPT;Aperture;Width} ) 
(CAR 

{ $$CONCEPT; Border ;Width} ) 
(CAR 

{ $$CONCEPT;Substrate;Width} ] ) 


(*  The  Height  of  the  Window  can  be  derived  from  any  of  several 
other  roles  depending  on  what  is  already  filled. 

We  will  give  as  arguments  all  of  the  possibilities  and  let  the 
derivation  function  determine  what  to  do. 

In  addition,  the  Label  can  affect  the  Height  of  the  Window  if 
it  is  present.) 


[roleset  NIL 

(mods  Height@DISPLAY) 

(derivation  (MakeWindowHeight  (Arguments  (CAR 

{ $$CONCEPT; Aperture; Height] ) 
(CAR 

{ $  $CONCEPT ; Bo  r  de  r ; He ig  h  t ] ) 
(CAR 

{ $$CONCEPT;Substrate;Height} ) 
(CAR 

{ $$CONCEPT;Label;Height] ] ] 

[roleset  NIL 

(mods  Envelope@DISPLAY) ] 

[PROG  (servant) 

(servant_[roleset  Servant 
(number  (0  NIL)) 

(vr  WINDOW) ] ) 

(*  A  Window  may  have  other  windows  closely  associated  with  it. 

The  "Servant"  relationship  indicates  other  windows  whose 
locations  must  be  attended  to  when  a  window  is  moved.) 


[roleset  OuterServant 

(diffs  (atoraval  servant) ) ] 

[roleset  InnerServant 

(diffs  (atomval  servant)) 

(derivation  (CopyWindowInnerServantPromLabel 

(Arguments  {$$C0NCEPT; Label} :!)))]] 


(*  The  role  Servant  is  differentiated  into  InnerServant  and 
OuterServant  because  the  rules  for  relocating  these  two  cases 
are  likely  to  differ.  Note  that  it  is  necessary  to  use  a 
circumlocution  in  order  to  set  up  the  differentiation  properly 
(because  of  name  inheritance.)) 
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[roleset  Master 
(vr  WINDOW) ] 

(prefer redprototype  'NONSCROLLWINDOW) 
(itags  (ToDraw  TDWindow) 

(ToLocate  TLWindow) 

(ToSize  TSWindow) ) ] ] ) 


{8} 


( I n i tWi ndowConcep t  s 

[LAMBDA  NIL  (*  Edited  by  J. Gibbons  on 

27-Jan-81.) 

(InitAPERTDRE) 

(InitWINDOW) 

(Ini tNON SCROLLWI NDOW ) 

(Ini tSCROLLWINDOW) 

(InitTTYWINDOW) 

(InitSLOWWINDOW) 

(InitFASTWINDOW] ) 

) 

(RPAQQ  AIPSWINDOWUTILITYFNS  (OpenWindow) ) 

(DEFINEQ 


{9} 


(OpenWindow 

[DLAMBDA  ( (windowType  Concept  (SATISFIES  windowType  df  'WINDOW) ) 
(substrate  IndividualConcept  (SATISFIES  substrate  df 

'VIEWSURFACE) ) ) 

(*  Edited  by  J. Gibbons  on 


29-Jan-81.) 


(PROG  (window) 

(window_ (SendMessage  windowType  'ToMake  substrate) : 1) 
(SendMessage  window  ’ToSize) 

(SendMessage  window  ’ToLocate) 

(KLAddlnstanceRole  substrate  Window@VIEWSURFACE  <window>) 
(RETURN  window) ) 1 ) 


(RPAQQ  AIPSWINDOWTOLOCATEFNS  (TLAperture  TLWindow) ) 
(DEFINEQ 


{10} 

(TLAperture 

[DLAMBDA  ((aperture  IndividualConcept  (SATISFIES  aperture  df  'APERTURE)) 
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(location  (LST  OF  FIXP) ) ) 

(*  Edited  by  J. Gibbons  on 
29-Jan-81.) 

(*  The  location  of  the  Aperture  itself  must  be 
(0  0)  since  it  is  a  DisplayComposite .  Otherwise,  the  location 
would  translate  the  location  of  its  parts  which  would  be 
disastrous  for  the  DisplaySurf ace . ) 


(if  location  or  ”location_{ aperture; Border ; Location} : 1 
then  (if  location 

then  (SetRoleValues  aperture  Location® APERTURE  '((0  0))) 
else  location_{ aperture ; SBorder ; ^Location} :1) 

(SendMessage  {aperture; SBorder }: 1  'ToLocate  location) 
(SendMessage  (CAR  { aperture; SDisplaySur face) ) 

'ToLocate  clocation: 1+1  location: 2+l>) ) 


location] ) 


{11} 


(TLWindow 

[DLAMBDA  ( (window  IndividualConcept  (SATISFIES  window  df  'WINDOW) ) 
(location  (LST  OF  FIXP))) 

(*  Edited  by  J. Gibbons  on 
29-Jan~81 . ) 

(if  location  or  ~location_{window;Location} : 1 
then  (if  location 

else  location_  < (bind  xCoord 

do  (printout  T  T  "Window  xCoord?  ") 

( xCoo  r  d_  ( RATOM ) ) 
repeatuntil  (FIXP  xCoord) 
finally  (RETURN  xCoord_(xCoord+8) /16*16) ) 
(bind  yCoord 

do  (printout  T  T  "Window  yCoord?  ") 
(yCoord_( RATOM) ) 
repeatuntil  (FIXP  yCoord) 
finally  (RETURN  yCoord) ) 

>) 

(SetRoleValues  window  Location@WINDOW  <location>) 

(SendMessage  {window; SDisplaySurface} : 1  'ToLocate  location) 
(SendMessage  (CAR  {window; SAperture} ) 

'ToLocate  <location: 1+15  location: 2>) ) 


location] ) 

) 


(RPAQQ  AIPSWINDOWTOMAKEFNS 
(DEFINEQ 


(TMAperture  TMFastWindow  TMNonScrollWindow 
TMSlowWindow  TMTTYWindow) ) 
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{12} 


(TMAperture 

[LAMBDA  (gener icAperture  displaySur face  planeFlg) 

(*  Edited  by  J. Gibbons  on 
27-Jan-81. ) 

< (Make  APERTURE  DisplaySurface  (if  planeFlg 

then  (TMDisplaySurf ace  NIL 

displaySurface  0) 

:  1 

else  displaySurface) 

Border  ’Fill) 

>1) 


{13} 


(TMFastWindow 

[ D LAMBDA  ( (gener icFastWindow  Gener icConcept  (SATISFIES  gener icFastWindow 

df  'FASTWINDOW) ) 

(substrate  IndividualConcept  (SATISFIES  substrate  df 

'DISPLAYSURFACE) ) ) 

(*  Edited  by  J. Gibbons  on 
2-Feb-81 . ) 

< (Make  FASTWINDOW  Substrate  substrate  Context  'Fill  DisplaySurface 
'Fill  Border  'Fill  Aperture  'Fill) 

>]) 


{14} 


(TMNonScrollWindow 

[LAMBDA  (gener icNonScrollWindow  substrate) 

(*  Edited  by  J. Gibbons  on 
27-Jan-81. ) 

< (Make  NONSCROLLWINDOW  Substrate  substrate  Context  'Fill  DisplaySurface 
'Fill  Border  'Fill  Aperture  ’Fill) 

>1) 


{15} 


( TMS lo wW i ndo w 

[LAMBDA  (gener icSlowWindow  substrate)  (*  Edited  by  J. Gibbons  on 

18-Dec-80 . ) 

< (Make  SLOWWINDOW  Substrate  substrate  Context  'Fill  DisplaySurface 
'Fill  Border  'Fill  Aperture  'Fill) 

>1) 
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{16} 


(TMTTYWindow 

[ DLAMBDA  ( (gener icTTYWindow  Gener icConcept  (SATISFIES  gener icTTYWindow  df 

'TTYWINDOW) ) 

(context  IndividualConcept  (SATISFIES  context  df 

'DISPLAYSURFACE) ) ) 

(*  Edited  by  J. Gibbons  on 
2-Jan-81 . ) 

(*  Derives  a  NonScrollWindow  for  displaying  TTY  output. 

Yes,  this  is  a  misnomer  in  that  scrolling  will  occur  but  will 
be  entirely  under  control  of  BMG.  This  may  be  just  one 
indication  that  the  hierarchy  of  windows  needs  rethinking.) 


< (Make  TTYWINDOW  Context  context  DisplaySurf ace  'Fill  Border  'Fill 
Aperture  'Fill  Substrate  'Fill) 

>1) 


(RPAQQ  AIPSWINDOWTOSIZEFNS  (TSAperture  TSNonScrollWindow  TSWindow) ) 
(DEFINEQ 


{17} 


(TSAperture 

(DLAMBDA  ((aperture  IndividualConcept  (SATISFIES  aperture  df  'APERTURE)) 
(height  (ONEOF  NIL  FIXP) ) 

(width  (ONEOF  NIL  FIXP) ) ) 

(*  Edited  by  J. Gibbons  on 


(if 


28-Jan-81 . ) 

height  or  width  or  "  (height_{aperture;Height} : 1 

and  width_{ aperture;Width} : 1) 

then  (if  height 

then  (SetRoleValues  aperture  Height@APERTURE  <height>) 
else  height_{aperture;&Height} : 1) 

(if  width 


then  (SetRoleValues  aperture  Width@APERTURE  <width> 

^  a  ...  ^  r.T J  i.  L  1  .  1  > 


else  width 
(SendMessage 
(SendMessage 


- -  -  ) 

aperture;&Widthf : 1) 

aperture; SBorder }: 1  'ToSize  height  width) 
aperture;&DisplaySurface} ; 1  'ToSize  height-2 
width- 2} ) 


<height  width>] ) 


{18} 


(TSNonSc  r o 1 lWi ndow 

(DLAMBDA  ( (nonScrollWindow  IndividualConcept  (SATISFIES  nonScrollWindow 


Source  File:  AIPSWINDOW 


198 


Report  No.  4752 


Bolt  Beranek  and  Newman  Inc. 


df 

'NONSCROLLWINDOW) ) 

(height  (ONEOF  NIL  FIXP) > 

(width  (ONEOF  NIL  FIXP))) 

(*  Edited  by  J. Gibbons  on 
29-Jan-81 . ) 

(*  Sets  the  Height  and  Width  if  the  argument  is  supplied. 

Otherwise,  they  are  derived  if  not  already  set. 

Setting  of  the  values  causes  ToSize  messages  to  be  sent  to  the 
nonScrollWindow' s  parts.  In  any  case,  the  values  are 
returned . ) 


(PROG  ((substrate  {nonScrollWindow; sSubstrate} : 1) ) 

(if  height  or  width  or  ~ (height_{nonScrollWindow;Height) : 1 

and  width_{nonScrollWindow;Width} : 1) 

then  (if  height 

else  height_2+{ substrate; SHeight} : 1) 

(if  width 

else  width_32+{ substrate; &Width} ; 1) 

(SetRoleValues  nonScrollWindow  Height@NONSCROLLWINDOW 
<height>) 

(SetRoleValues  nonScrollWindow  Width@NONSCROLLWINDOW 
<width>) 

(SendMessage  {nonScrollWindow; &Aperture} : 1  'ToSize 
height  width-30) 

(SendMessage  {nonScrollWindow; SDisplaySur facel : 1  'ToSize 
height  width) ) 

(RETURN  cheight  width>) ) ] ) 


{19} 

(TSWindow 

[DLAMBDA  ((window  IndividualConcept  (SATISFIES  window  df  'WINDOW)) 
(height  (ONEOF  NIL  FIXP) ) 

(width  (ONEOF  NIL  FIXP))) 

(*  Edited  by  J. Gibbons  on 
29-Jan-81 . ) 

(*  Sets  the  Height  and  Width  if  the  argument  is  supplied. 

Otherwise,  they  are  derived  if  not  already  set. 

Setting  of  the  values  causes  ToSize  messages  to  be  sent  to  the 
window's  parts.  In  any  case,  the  values  are  returned.) 


(if  height  or  width  or  ~ (height_{window;Height} : 1 

and  width_{window;Width} ; 1) 

then  (if  height 

else  (do  (printout  T  T  "Window  height?  ") 
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(height_(RATOM) )  repeatuntil  (FIXP  height))) 

{if  width 

else  (do  (printout  T  T  "Window  width?  ") 

(width_(RATOM) )  repeatuntil  (FIXP  width) 
finally  width_ (width+8) /16*16) ) 

(SetRoleValues  window  HeightiWINDOW  <height>) 

(SetRoleValues  window  Width@WINDOW  <width>) 

(SendMessage  {window; SAperture} : 1  'ToSize  height  width-30) 
(SendMessage  {window; SDisplaySurface] : 1  ’ToSize  height  width)) 
<height  width>] ) 

) 

(DECLARE:  DOEVAL@COMPILE  DONTCOPY 

(ADDTOVAR  GLOBAL VARS  AIPSUSERMODEL) 

) 

(ADDTOVAR  CKLONEFILES  AIPSWINDOW) 

STOP 
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